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