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