my $foo;
my @bar = <>;
$foo .= $_ foreach @bar;