$ perl -l
print for '\'foo', '\\\'foo', '\foo', '\\foo'
'foo
\'foo
\foo
\foo