my $line = '';
while(1)
{
   $line = $line ? $line : <FH>;
   last unless defined $line;
   unless(isNewRecordLine($line))
   {
      addToRecord($line);
      $line = '';
   }
   else
   {
      processRecord();
   }   
}