in reply to Re: searching problem
in thread searching problem

A small simplification: 
my $regex = reverse join '|', @words;

[download]
Bill

In Section Seekers of Perl Wisdom