Anagrams

Score: 85.41 (pass)

#!perl -nl
push@{$&{1,sort/./g}},$_;END{map{/ /,$`&&print$'}sort map{join$",$#$_,sort@$_}%&}

Score: 86.40 (pass)

#!perl -nl
push@{$&{1,sort/./g}},$_;END{map{/ /,$`&&print$'}sort map{join' ',$#$_,sort@$_}%&}

Score: 91.42 (pass)

#!perl -nl
push@{$p{1,sort/./g}},$_;END{map{/(\d+)./,$1&&print$'}sort map{join' ',$#$_,sort@$_}%p}

Score: 96.43 (pass)

#!perl -nl
push@{$p{1,sort/./g}},$_;END{map{print$2if/(\d+).(.*)/&&$1}sort map{join' ',$#$_,sort@$_}%p}

Score: 97.44 (fail)

#!perl -nl
push@{$p{1,sort/./g}},$_;END{map{print/\d+.(.*)/}grep!/^0|-/,sort map{join' ',$#$_,sort@$_}%p

Score: 98.44 (pass)

#!perl -nl
push@{$p{1,sort/./g}},$_;END{map{print/\d+.(.*)/}grep!/^0|-/,sort map{join' ',$#$_,sort@$_}%p}

Score: 107.37 (pass)

#!perl -nl
push@{$p{join//,sort/./g}},$_;END{map{print"@$_"}sort{@$a<=>@$b||"@$a"cmp"@$b"}grep{(@$_=sort@$_)>1}%p}