Anagrams

Score: 107.29 (pass)

#!perl -l
map{$_{join'',sort split//}.=' '.$_;}<>;map{s/.//s-/ /||print}sort map{chr(tr/ //).join' ',sort split}%_

Score: 108.29 (pass)

#!perl -l
map{$_{join'',sort split//}.=' '.$_;}<>;map{s/.//s&&/ /&&print}sort map{chr(tr/ //).join' ',sort split}%_

Score: 112.29 (pass)

#!perl -l
map{$_{join'',sort split//}.=' '.$_;}<>;map{s/.//s&&print}sort map{/ .* /s&&chr(tr/ //).join' ',sort split}%_

Score: 114.30 (pass)

#!perl -l
map{$_{join'',sort split//}.=' '.$_;}<>;map{s/.//s-/ /||print;}sort map{chr(tr/ //).join' ',sort split}values%_

Score: 115.30 (pass)

#!perl -l
map{$_{join'',sort split//}.=' '.$_;}<>;map{s/.//s&&/ /&&print;}sort map{chr(tr/ //).join' ',sort split}values%_

Score: 116.27 (pass)

#!perl -l
map{$_{join'',sort split//}.=' '.$_;}<>;map{s/\d+//-/ /||print}sort{$a<=>$b}sort map{tr/ //.join' ',sort split}%_

Score: 117.31 (pass)

#!perl -l
map{$_{join'',sort split//}.=' '.$_;}<>;map{s/.(.* )/$1/s&&print;}sort map{chr(tr/ //).join' ',sort split}values%_

Score: 119.32 (fail)

#!perl -l
while(<>){$_{join'',sort split//}.=' '.$_;}for(sort map{tr/ //.join' ',sort split}values%_){s/\d*//&&tr/ //&&print;}