Select Code to Download

  LINE: for each line of the file {
    PATTERN: for each exclude string {
...
        skip to the next LINE
    }
  }

  LINE: for each line of the file {
    PATTERN: for each exclude string {
...
    }
    we weren't excluded by any pattern, so print the line
  }

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