$match = '(foo|baz|bar)';

while (<INPUT>) {
   next if ($_ !~ /$match/o);
}