Help for this page

Select Code to Download

Select or download this
```
% anagram_finder.pl elloh
hello
%
```

Select or download this

open DICT, "</usr/dict/words" or die "no more words: $!";
$a = join "", sort split "", lc shift;
print join "\n", grep {$a eq join "", sort split "", lc} <DICT>;