Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
@ARGV = '/usr/share/dict/words';

/^$have$/i && (join '', sort /./g) =~ $regex && print while <>;

Select or download this

regex: (?^mi:^e?h?o?r?r?t?w?$)

thew
trow