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