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