Re^7: Search and delete lines based on string matching

[imp]

in reply to Re^6: Search and delete lines based on string matching
in thread Search and delete lines based on string matching

For deletion you would use this pattern, sorry:

while (my $line = <$pattern_fh>) {
    chomp $line;
    # Use quotemeta to allow for items like A[0]
    push @tokens, quotemeta($line);
}
my $pattern = '^(?:' . join('|', @tokens) . ')[^a-zA-Z]*$';
print "Search pattern: $pattern\n";