my $rec;
        while ( <$fh> ) {
        if (s/^\[(.*?)\]\s*//){$rec = $1}