Anagrams

Score: 64.44 (pass)

#!perl
$o{_,sort/./g}=~s/.*/_$& $_/for sort<>;print/__ (.*
)/for sort%o

Score: 68.43 (pass)

#!perl
$o{join_,sort/./g}=~s/.*/_$& $_/for sort<>;print/__ (.*
)/for sort%o

Score: 69.42 (pass)

#!perl
$o{join//,sort/./g}=~s;.*;_$& $_;for sort<>;print/__ (.*
)/for sort%o

Score: 70.47 (pass)

#!perl
map$_{"@{[sort/./g]}"}=~s/.*/_$& $_/,sort<>;print map/__ (.*
)/,sort%_

Score: 71.49 (pass)

#!perl
map$w{"@{[sort/./g]}"}=~s/.*/1$& $_/,sort<>;print map/11 (.*
)/g,sort%w