Look for "negative lookahead" in perlre, or break it into two separate conditions (if it starts with /P[ABC]/ and it doesn't start with /PATY/ then skip to the next line).