$foo = '$bar';
s/\Q$foo\E/XYZ/g;