{ # Add an enclosing block
   local $/= "\n\n\n";
   while(<>){
      local $/="\n"; # Reset to normal behaviour inside loop only
      my ($filename)=/^(\S+)/;
      my $text=reader::firstline($filename);
   }
} # End enclosing block.