in reply to lines that I do not wish to be skipped

next if /^P[ABC]/ && !/^PATY/;

[download]

In Section Seekers of Perl Wisdom