m/\bAP(?:\W|$)/i;
#or easier...
m/\bAP\b/i;