print FILE <<UNTIL_I_SAY_STOP or die "ERROR Writing to FILE: $!";
 blah, blah, blah
UNTIL_I_SAY_STOP

##</code><code>##

my $sub=substr(<<EOT,3,3);
abc123def
EOT
print "sub=\"$sub\"\n";

##</code><code>##

print <<EOT1,<<EOT2;
foo
EOT1
bar
EOT2