$pat = qr/PAT/;