Anagrams

Score: 67.43 (fail)

#!perl
map$s{1,sort/./g}=~s/(.*}
*/1$1 $_/,sort<>;map{/11 /;print$'}sort%s

Score: 67.45 (pass)

#!perl
map$s{1,sort/./g}=~s/(.*)
*/1$1 $_/,sort<>;map{/11 /;print$'}sort%s

Score: 70.44 (pass)

#!perl
$p{1,sort/./g}=~s/(.*)\s*/0$1 $_/for sort<>;s/00+ //&&print for sort%p