Select Code to Download

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

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

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

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