$pat = q/PAT/;