Select Code to Download

eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
                  && eval 'exec perl -w -S $0 $argv:q'
...
warn "\t", scalar @words_matched, " words matched\n";

exit;

> time word_twister2.pl posterboy web2*
Reading in dictionary, creating dictionary anagrams
...
rb yes yeso yest yet yoe yoop yor yore yot yote
        261 words matched
5.770u 0.130s 0:06.04 97.6%     0+0k 0+0io 2769pf+0w