use strict;
my $test = qq();
$test = $test . $_ while (<DATA>);

print "$test";

__DATA__

Hello there.
This is me.