Anagrams

Score: 81.37 (pass)

#!perl
$_{"@{[sort/./g]}"}.=$_ for sort<>;$_[s/
(.)/ $1/g].=$_ for sort%_;print@_[1..99]

Score: 96.40 (pass)

#!perl
push@{$a{"@{[sort/./g]}"}},/(.+)/for<>;print grep s,[\2- ] ,,,sort map"@{[chr@$_,sort@$_]}
",%a;

Score: 105.39 (pass)

#!perl
push@{$a{"@{[sort/./g]}"}},/(\w+)/for<>;print grep s/(\W+)//&$1ge"\cB",sort map"@{[chr@$_,sort@$_]}
",%a;