print q'foo', $/;
$bar =~ s/'/\\'/g;

##</code><code>##

print q"\x66\x6f\x6f",$/;$bar=~ s/"\x2f\x5c"/g;