$pat = qr/$pat/i;
s/$pat/something/g;