$pat = qr/$pat/gi;
s/$pat/something/;