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