$ perl -MO=Deparse -e'print "foo"'
print 'foo';
-e syntax OK

$ perl -MO=Deparse -e'print "foo'"'"'"'
print q[foo'];
-e syntax OK

$ perl -MO=Deparse -e'print "foo['"'"'"'
print q(foo[');
-e syntax OK

$ perl -MO=Deparse -e'print "foo(['"'"'"'
print q<foo(['>;
-e syntax OK

$ perl -MO=Deparse -e'print "foo<(['"'"'"'
print q{foo<(['};
-e syntax OK

$ perl -MO=Deparse -e'print "foo{<(['"'"'"'
print q/foo{<(['/;
-e syntax OK

$ perl -MO=Deparse -e'print "foo/{<(['"'"'"'
print q"foo/{<(['";
-e syntax OK

$ perl -MO=Deparse -e'print "foo\"/{<(['"'"'"'
print q#foo"/{<(['#;
-e syntax OK

$ perl -MO=Deparse -e'print "foo#\"/{<(['"'"'"'
print 'foo#"/{<([\'';
-e syntax OK