while () { print; } ##

##

for (1..2) {
   while () {
      print;
   }
}

##

##

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

##

##

local $/;

$_ = ;  # Returns first chunk
print;

$_ = ;  # Returns EOF

$_ = ;  # Returns second chunk
print;

$_ = ;  # Returns EOF

##

##

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