perl -e 'print <DATA>;
__DATA__
line 1
line 2
'

##</code><code>##

perl <<'XXX'
print <DATA>;
__DATA__
line 1
line 2
XXX