[here-docs in source file: <DATA>]


@@sub:bar:1@@

@@BEGIN:2@@
print <<'FOO';
blah
FOO
@@END:4@@


@@sub:ralph:7@@

@@BEGIN:7@@
sub ralph { print <<EOF }
This is a test!
Here's some more text.
EOF
@@END:10@@

@@BEGIN:13@@
$foo = <<STRING;
blah blah blah blah.
how's that?
STRING
@@END:16@@