my $foo;
$foo .= $_ while <>;