I was enjoying my coffee and doing some catch up work this morning when my sysadmin friend IM's me asking if I know of a way to generate Perl compatible regular expressions from a set of words. A quick trip to the CPAN revealed Regex::PreSuf. A couple minutes later I emailed him this script from the command line.
# Put in the words you want to match here
my @words = qw( foo bar blitz );
my $re = presuf( @words );
As a bonus, the docs say that the regexs generated are usually faster than using alternation. I can think of a few places in my code to refactor already