in reply to Nested Heredocs and Shell Escapes (code)
$ ksh <<'END_OF_KSH' > perl <<'END_OF_PERL' > my $foo=qq{bar \n}; > print qq{ FOO=$foo }; > END_OF_PERL > END_OF_KSH FOO=bar $