Anagrams

Score: 61.46 (pass)

#!perl
map!s/
^/ /m|//||print,sort%0for map$0{0,sort/./g}.=$_,sort<>

Score: 61.48 (pass)

#!perl
map!s/
\b/ /|//||print,sort%0for map$0{0,sort/./g}.=$_,sort<>

Score: 64.48 (pass)

#!perl
map$0{0,sort/./g}.=$_,sort<>;map!s/
\b/ /|//||print,sort%0for%::

Score: 68.46 (pass)

#!perl
map$2{2,sort/./g}.=$_,sort<>;print grep s/
/ /+y/
//==2,sort%2for%::

Score: 72.43 (pass)

#!perl
map$2{2,sort/./g}.=$_,sort<>;print grep$s==s/\s\b/ /g,sort%2while++$s<22

Score: 73.42 (pass)

#!perl
map$2{2,sort/./g}.=$_,sort<>;print sort grep$s==s/\s\b/ /g,%2while++$s<22

Score: 80.41 (pass)

#!perl
map$2{2,sort/./g}.=$_,sort<>;print sort grep{$s==s/\s\b/ /g}values%2while++$s<22

Score: 85.39 (pass)

#!perl
$2{2,sort split//}.=$_ for sort<>;print sort grep{$s==s/\s\b/ /g}values%2while++$s<22

Score: 87.39 (fail)

#!perl
$2{2,sort split//}.=$_ for sort<>;print sort grep{$s==s/\s\b/ /g}values%2while+\
+$s<22

Score: 88.39 (fail)

#!perl
$s{2,sort split//}.=$_ for sort<>;print sort grep{$s==s/\s\b/ /g}values%s while\
++$s<22

Score: 91.41 (pass)

#!perl

$s{"@{[sort split//]}"}.=$_ for sort<>;print sort grep{$s==s/\s\b/ /g}values%s while++$s<15