Help for this page
print q'foo', $/; $bar =~ s/'/\\'/g;
print q"\x66\x6f\x6f",$/;$bar=~ s/"\x2f\x5c"/g;