use warnings;
use strict;

my $test = qq();
$_ = 'xxxx';
do{$test = $test . $_ } while (<DATA>);

print "$test";

__DATA__

Hello there.
This is me.