in reply to how to find all lines which do not start with something

untested:

without grep:
foreach my $line (@lines) { next if $line =~ /^QKC_/; #do something with $line }
with grep:
@subset = grep(/^QKC_/, @lines);

Replies are listed 'Best First'.
Re^2: how to find all lines which do not start with something
by ikegami (Patriarch) on Sep 16, 2004 at 14:26 UTC
    Your grep does the opposite of what it should. Add a '!' in front of /^QKC_/.