You don't even need a heredoc in Perl to do this. But this is some mightily ugly code. (Then again, so is the heredoc version.)

use strict;
use warnings;

my $string = "This
is
a
test...";

print $string;
[download]