Anagrams

Score: 74.38 (pass)

#!perl -p
$a{a,sort/./g}.=$_}for(sort map"}"x(@a=sort/.+/g)."@a
",%a){/}}+/,$_=$'

Score: 74.39 (pass)

#!perl -p
$a{1,sort/./g}.=$_}for(sort map'}'x(@a=sort/.+/g)."@a
",%a){/}}+/,$_=$'

Score: 75.37 (pass)

#!perl -p
$a{"",sort/./g}.=$_}for(sort map'}'x(@a=sort/.+/g)."@a
",%a){/}}+/,$_=$'

Score: 79.39 (pass)

#!perl -p
$a{"@{[sort/./g]}"}.=$_}for(sort map{1x(@a=sort/.+/g)." @a
"}%a){/11 /;$_=$'

Score: 80.39 (pass)

#!perl -p
$a{"@{[sort/./g]}"}.=$_}for(sort map{@a=sort/.+/g;1x@a." @a
"}%a){/11 /;$_=$'

Score: 80.40 (fail)

#!perl -p
$a{"@{[sort/./g]}"}.=$_}for(sort map{9x@a." @a
"if(@a=sort/.+/g)>1}%a){s/9+./

Score: 81.38 (pass)

#!perl -p
$a{"@{[sort/./g]}"}.=$_}for(sort map{1x@a." @a
"if(@a=sort/.+/g)>1}%a){s/1+.//

Score: 83.39 (pass)

#!perl -p
$a{"@{[sort/./g]}"}.=$_}for(sort map{1<(@a=sort/.+/g)&&(9x@a)." @a
"}%a){s/9+.//

Score: 84.39 (pass)

#!perl -p
$a{"@{[sort/./g]}"}.=$_}for(sort map/
./&&"@{[9x tr/
//,sort/.+/g]}
",%a){s/9+.//

Score: 85.40 (pass)

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

Score: 86.38 (pass)

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

Score: 90.36 (pass)

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

Score: 91.36 (pass)

#!perl -p
$a{"@{[sort/./g]}"}.=$_}for(sort map"@{[9x tr/\n//,sort/\S+/g]}\n",grep/\n./,%a){s/9+.//

Score: 109.29 (pass)

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

Score: 116.34 (pass)

#!perl -ln
$a{"@{[sort/./g]}"}.="$_ "}{/ /?print:0for sort{$a=~tr/ //<=>$b=~tr/ //or$a cmp$b}map{"@{[sort/\S+/g]}"}values%a