http://www.perlmonks.org?node_id=1014056


in reply to Re: searching problem
in thread searching problem

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