@files = <FILE>;
chomp(@files);
@strings = qw(ABC DEF GHI JKL);

foreach $file (@files) {
  my $data = slurp $file;
    foreach $string(@strings) {
      if (index(lc($data),lc($string)) ge 0) {
        print " Match\n";
      }
}