my $begin = ##

##

          <<'THEEND';
    ...
THEEND