Help for this page
my $foo = $/; undef $/; my $bar = <>; $/ = $foo;
my $foo; $foo .= $_ while <>;
my $foo; my @bar = <>; $foo .= $_ foreach @bar;
my $foo; { local $/; $foo = <>; }