while (!eof && (my $nxt = readline($fh)) =~ /^\+/)