$re=qr/foo/i;
s/$re/bar/;