in reply to lines that I do not wish to be skipped
while (<DATA>) { next if (/^(PA(?!TY)|PB|PC).*/); print $_; } __DATA__ PAfr PBhghg PAY fvfv PT PATE PATY hfkd dfffPATY [download]