Anagrams

Score: 74.47 (pass)

#!perl -p
$_{1,sort/./g}.=$_}for(sort+map{@_=sort/.+/g;1x$#_."
@_
"}%_){s/\C.*
//

Score: 77.39 (pass)

#!perl -p
$m{1,sort/./g}.=$_}{map{$\.=/22 /&&$'}sort map{@a=sort/.+/g;2x@a." @a
"}%m

Score: 88.40 (pass)

#!perl -p
$m{@_,sort split//}.=$_}{map{$\.=$' if/^./}sort
map{@a=sort split;chr(9+@a)."@a\n"}%m