Anagrams

Score: 74.41 (pass)

#!perl
map$%{join _,sort/./g}.=$_,sort<>;map$_[s]
^] ]gm].=/ /&&$_,sort%%;print@_

Score: 74.41 (pass)

#!perl
map$%{join _,sort/./g}.=$_,sort<>;map$@[s]
^] ]gm].=$_ x/ /,sort%%;print@@

Score: 76.41 (fail)

#!perl
map$%{join'',sort/./g}.=$_,sort<>;print
grep s/\d//,sort map s/
^/ /gm.$_,%%

Score: 77.40 (pass)

#!perl
map$%{join _,sort/./g}.=$_,sort<>;map{/
./and$_[s]
^] ]gm].=$_}sort%%;print@_

Score: 79.39 (pass)

#!perl
map$%{join _,sort/./g}.=$_,sort<>;print grep s/.\d//,sort map 9+s/
^/ /gm.$_,%%

Score: 79.39 (pass)

#!perl
map$%{join t,sort/./g}.=$_,sort<>;map+s&.\d&&&&print,sort+map+9+s+
^+ +gm.$_,%%

Score: 79.42 (pass)

#!perl
map$%{join'',sort/./g}.=$_,sort<>;print
grep s/.\d//,sort map 9+s/
^/ /gm.$_,%%

Score: 80.39 (fail)

#!perl
map$%{join'',sort/./g}.=$_,sort<>;$_=s/
^/ /gm.$_ for%%;print grep s/\d//,sort%%

Score: 80.40 (fail)

#!perl
map$z{join'',sort/./g}.=$_,sort<>;$_=s/
\b/ /g.$_ for%z;print grep s/\d//,sort%z

Score: 81.40 (fail)

#!perl
map$z{join'',sort/./g}.=$_,sort<>;$_=s/
\b/ /g.$_ for%z;print grep s/\d//g,sort%z

Score: 94.39 (pass)

#!perl
map$z{join'',sort/./g}.=$_,sort<>;s/
\b/ /g&&print for sort{$a=~y/
//<=>$b=~y/
//||$a cmp$b}%z