Anagrams

Score: 63.46 (pass)

#!perl
$s{o,sort/./g}=~s/.*/~$& $_/for sort<>;print/ (.*
)
/for sort%s

Score: 73.37 (pass)

#!perl
map$s{o,sort/./g}=~s/.*/~$&~$_/s,sort<>;map{s/~*//,s/
~/ /g&&print}sort%s

Score: 73.38 (pass)

#!perl
map$s{o,sort/./g}=~s/.*/~$&~$_/s,sort<>;print grep{s/~*//,s/
~/ /g}sort%s

Score: 73.41 (pass)

#!perl
map$s{o,sort/./g}=~s/.*/~$&$_/s,sort<>;print grep{s/~*//,s/
\b/ /g}sort%s

Score: 75.40 (pass)

#!perl
map$s{9,sort/./g}.=$_,sort<>;print grep{s/1..//}sort map{99+s/
\b/ /g.$_}%s

Score: 89.34 (pass)

#!perl
map$s{o,sort/./g}.=$_,sort<>;print sort{$a=~y/ //<=>$b=~y/ //or$a cmp$b}grep{s/
\b/ /g}%s

Score: 92.33 (pass)

#!perl
map$s{o,sort/./g}.=$_,sort<>;print sort{$a=~y/ //<=>$b=~y/ //or$a cmp$b}map{s/
\b/ /g&&$_}%s

Score: 98.37 (pass)

#!perl
map$s{o,sort/./g}.=$_,sort<>;print map{s/
\b/ /g&&$_}sort{$a=~y/
//<=>$b=~y/
//or$a cmp$b}values%s

Score: 102.38 (pass)

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

Score: 107.34 (pass)

#!perl
map{chop;push@{$s{join1,sort/./g}},$_}sort<>;print map@$_>1&&"@$_$/",sort{@$a<=>@$b||"@$a"cmp"@$b"}values%s