I wrote this snippet ~10 years ago when learning Perl: for(<>){chop;$s{join'',sort split'',lc}.=" $_"}for(sort%s){/. /&&print"$_\n"} Running against wordlis

I wrote this snippet ~10 years ago when learning Perl: for(<>){chop;$s{join'',sort split'',lc}.=" $_"}for(sort%s){/. /&&print"$_\n"} Running against wordlist.txt was fun (anemic cinema, bedroom boredom, etc.)