sub readrec {

    my $rec = '';

    while ( <FH> ) {
        $rec .= $_ if m|<rec>| .. m|</rec>|;
        last if m|</rec>|;
    }

    $rec;
}