Anagrams

Score: 75.40 (pass)

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

Score: 76.43 (pass)

#!perl -p
$.{0,sort/./g}.=$_}for(sort+map"}"x+split."@{[sort@_]}$/",%.){s/}}+|.*//s

Score: 76.45 (fail)

#!perl -p
$s{_,sort/./g}.=$_}for(sort+map"}"x+split."@{[sort@_]}\n",%s){s/}}+|.*//s

Score: 86.43 (pass)

#!perl -nl
END{s/^~~+//&&print for sort map"~"x@$_."@{[sort@$_]}",%s}push@{$s{0,sort/./g}},$_

Score: 97.38 (pass)

#!perl -nl
END{@$_>1&&print"@$_"for sort{@$a-@$b||"@$a"cmp"@$b"}%s}$*=$_;@$_=sort@$_,$*for$s{0,sort/./g}

Score: 101.37 (pass)

#!perl -nl
END{@$_>1&&print"@$_"for sort{@$a-@$b||"@$a"cmp"@$b"}%s}@s=sort/./g;$s{"@s"}=[sort@{$s{"@s"}},$_]

Score: 103.38 (pass)

#!perl -nl
END{@$_>1&&print"@$_"for+sort{@$a-@$b||$$a[0]cmp$$b[0]}%s}@s=sort/./g;$s{"@s"}=[sort@{$s{"@s"}},$_]

Score: 106.38 (pass)

#!perl -nl
END{@$_>1&&print"@$_"for sort{@$a-@$b||$$a[0]cmp$$b[0]}%s}for$f($s{join"",sort/(.)/g}){@$f=sort@$f,$_}

Score: 107.38 (pass)

#!perl -nl
END{@$_>1&&print"@$_"for sort{@$a-@$b||$$a[0]cmp$$b[0]}%s}$f=$_;@$_=sort@$_,$f for$s{join"",sort/(.)/g}