use Regexp::List ();

my @words = (
   'foo',
   'bar',
);

my $regexp = Regexp::List->new()->list2re(@words);

while (<FILE>) {
   print if /$regexp/;
  #print if $_ =~ $regexp;  # Alternate syntax.
}