Anagrams

Score: 74.39 (pass)

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

Score: 79.42 (pass)

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

Score: 80.46 (pass)

#!perl

map$o{"@{[sort/./g]}"}.=$_,sort<>;print/}+(.*

)/for sort map"}"x s/

\b/ /g.$_,%o

Score: 84.37 (pass)

#!perl -pl

push@{$o{"@{[sort/./g]}"}},$_}for(map/11 (.*)/,sort map"@{[1x@$_,sort@$_]}",%o){

Score: 85.38 (pass)

#!perl -pl

push@{$o{"@{[sort/./g]}"}},$_}for(grep s/11+ //,sort map"@{[1x@$_,sort@$_]}",%o){

Score: 87.34 (pass)

#!perl -pl

push@{$o{"@{[sort/./g]}"}},$_}for(sort grep/ /,map"}"x@$_."@{[sort@$_]}",%o){s/}//g

Score: 88.38 (pass)

#!perl -pl

push@{$o{"@{[sort/./g]}"}},$_}for(sort map@$_>1?"}"x@$_."@{[sort@$_]}":@o,%o){s/}//g

Score: 89.39 (pass)

#!perl -pl
push@{$o{"@{[sort/./g]}"}},$_}for(sort map'}'x@$_."@{[sort@$_]}",grep@$_>1,%o){y/}//d

Score: 89.39 (pass)

#!perl -pl
push@{$o{"@{[sort/./g]}"}},$_}for(sort map'}'x@$_."@{[sort@$_]}",grep@$_>1,%o){y/}//d

Score: 89.40 (pass)

#!perl -pl
push@{$o{"@{[sort/./g]}"}},$_}for(sort map'~'x@$_."@{[sort@$_]}",grep@$_>1,%o){y/~//d