my @strings = qw(ABC DEF GHI JKL); my $regex = join '|', map "\Q$_\E", @strings; $regex = qr/$regex/i; foreach my $file (@files) { my $data = slurp $file; if ($data =~ $regex) { print " Match\n"; } }