my $foo = $/;
undef $/;
my $bar = <>;
$/ = $foo;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

my $foo;
{ local $/; $foo = <>; }