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

##</code><code>##

s/foo/bar/io;