sub readrec
{
   my $line;
   my $inrec;
   my $rec;

   while (defined($line = <FH>)) {
      last if $line eq "</ref>\n";
      $rec .= $line if $inrec;
      $inrec ||= $line eq "<ref>\n";
   }
   $rec;
}