{
   local $/ = "\n";
   $line = <FILE>;
}

{
   local $/ = \200;
   $record = <FILE>;
}