LINE: foreach my $line (@file1only) {
    foreach my $exclude (@strings) {
      chomp $exclude;
      next LINE if $line =~ $exclude;
    }
    # we weren't excluded by any of the patterns
    print OUT $line;
  }