Anagrams

Score: 75.45 (fail)

#!perl
++$m^map{$m^s/
(?!$)/ /g||print}sort%;for
map$;{join$m,sort/./g}.=$_,sort<>

Score: 78.41 (pass)

#!perl
++$m^map{$m^s/
(?!$)/ /g||print}sort%a=%.for map$.{join$m,sort/./g}.=$_,sort<>

Score: 79.42 (pass)

#!perl
++$m^map{$m^s/( |
)(?!$)/ /g||print}sort%;for map$;{join$m,sort/./g}.=$_,sort<>

Score: 88.40 (fail)

#!perl
map{$s{"@{[sort m;.;g]}"}.=$_}sort<>;print grep{s;\d;;}sort map{s;
(.); $1;g.$_}values%s

Score: 89.40 (pass)

#!perl
$s{join'',sort m;.;g}.=$_ for sort<>;s;\d;;&&print for sort map{s;$/(.); $1;g.$_}values%s