Select Code to Download

while (<STDIN>) {
   print;
}

for (1..2) {
   while (<STDIN>) {
      print;
   }
}

local $/;
for (1..2) {
...
      print;
   }
}

local $/;

...
print;

$_ = <STDIN>;  # Returns EOF

local $/;
($_) = <STDIN>;  # Returns first chunk
($_) = <STDIN>;  # Returns second chunk