Anagrams

Score: 78.38 (pass)

#!perl
map$i{a,sort/./g}.=$_,sort<>;map{/{+/,print$'}sort map{'{'x s/
(?=.)/ /g.$_}%i

Score: 79.39 (pass)

#!perl
map$i{p,sort/./g}.=$_,sort<>;map{/{+/&&print$'}sort map{'{'x s/
(?=.)/ /g.$_}%i

Score: 85.39 (pass)

#!perl
map$i{p,sort/./g}.=$_,sort<>;map{/ /&&/./&&print$'}sort map{chr(2*s/
(?=.)/ /g).$_}%i

Score: 96.36 (pass)

#!perl
map$i{p,sort/./g}.=$_,sort<>;map{/\d+/&&print$'}sort{$a<=>$b||$a cmp$b}map{$_=s/
(?=.)/ /g.$_}%i

Score: 98.36 (pass)

#!perl -l
map$i{1,sort/./g}.=$_,sort<>;map{chop;y/
/ /;/ /&&print}sort{$a=~y/
//<=>$b=~y/
//or$a cmp$b}%i

Score: 98.37 (pass)

#!perl -l
map$i{1,sort/./g}.=$_,sort<>;chop,y/
/ /,/ /&&print for sort{$a=~y/
//<=>$b=~y/
//or$a cmp$b}%i

Score: 99.36 (pass)

#!perl -l
map{$i{1,sort/./g}.=$_}sort<>;chop,y/
/ /,/ /&&print for sort{$a=~y/
//<=>$b=~y/
//or$a cmp$b}%i

Score: 101.36 (pass)

#!perl -l
map{$i{1,sort/./g}.=$_}sort<>;chop%i;y/
/ /,/ /&&print for sort{$a=~y/
//<=>$b=~y/
//or$a cmp$b}%i

Score: 102.33 (pass)

#!perl -l
map{chop;$i{1,sort/./g}.="$_ "}sort<>;chop%i;/ /&&print for sort{$a=~y/ //<=>$b=~y/ //or$a cmp$b}%i