# save as heredoc.pl
$text=<<TEXT;
This is line one
  this is line 2
TEXT
print <<'TEXT';
It follows the text
just saved in $text
TEXT
print "$text";