for (;;) { # Loop until "last".
   local $_ = <DATA>;

   if (defined) {
      print;
   } else {
      print("[undef]\n");
   }

   last unless defined $_;
}