use warnings;
#use strict;

my $text1 = <<TEXT;
This is the text for \$text1.
Note that multiple lines are allowed.
Note too that the terminating line must exactly match the string between the <<
and the ; on the starting line. In particular any white space must match
exactly.
TEXT

print $text1;

##</code><code>##

This is the text for $text1.
Note that multiple lines are allowed.
Note too that the terminating line must exactly match the string between the <<
and the ; on the starting line. In particular any white space must match
exactly.