Anagrams

Score: 74.43 (fail)

#!perl -p
$h{_,sort/./g}.=$_}for(sort map{chr(@_=sort split)."@_
"}%h){s/.*|.//s

Score: 75.41 (pass)

#!perl -p
$h{i,sort/./g}.=$_}for(sort map{chr(@_=sort split)|"h@_
"}%h){s/i.*|.//s

Score: 75.45 (pass)

#!perl -p
$h{Q,sort/./g}.=$_}for(sort map{chr(@_=sort split)^"P@_
"}%h){s/Q.*|.//s

Score: 80.44 (pass)

#!perl -p
$h{P,sort/./g}.=$_}for(grep{y/R-_//d}sort map{P^chr(@_=sort split)."@_
"}%h){