Anagrams

Score: 89.36 (pass)

#!perl -pl
push@{$_{join"",sort/(.)/g}},$_}for(grep/ /,sort map{"}"x(@_=sort@$_)."@_"}%_){s/}//g

Score: 92.37 (pass)

#!perl -nl
push@{$_{join"",sort split//}},$_}{s/}//g>1&&print for sort map{"}"x(@_=sort@$_)."@_"}%_

Score: 92.38 (pass)

#!perl -nl
push@{$_{join'',sort split//}},$_}{s/}//g>1&&print for sort map{'}'x(@_=sort@$_)."@_"}%_

Score: 99.32 (fail)

#!perl -nl
push@{$_{join'',sort split//}},$_}{s/\d//g,/ /&&print for sort map{@$_.join' ',sort@$_}values%_

Score: 100.34 (pass)

#!perl -nl
push@{$_{join'',sort split//}},$_}{s/~//g>1&&print for sort map{'~'x@$_.join' ',sort@$_}values%_

Score: 127.31 (pass)

#!perl -nl

push@{$_{join'',sort split//}},$_}{@{$_}>1&&print join' ',sort@{$_}for sort{@$a<=>@$b||(sort@$a)[0]cmp(sort@$b)[0]}values%_