...
  {
   local $\ = "\n";
   ...
   ...
   print $foo;
   ...
  }