my @zones = `cat zones.txt`;
chomp (@zones);

open (IN, 'logfile.log');
while (<IN>) {
  chomp;
  foreach my $zone (@zones) {
    if ($_ =~ /$zone$/) {
      print "$zone match\n";
      last;
    }
  }
}
close IN;