$ cat foo
print '\\';
$ perl -l foo
\