find anagrams by dcutter

print grep{@b=sort/./g;$@?$@eq"@b":($@="@b",0)}<>

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top