open ( LESEN, "<", "$outInf" ) or die "Lesefehler: $outInf: $? \n";
      open ( SCHREIBEN, ">>", "$outTxt" ) or die "Schreibfehler: $outTxt: $? \n";
      while ( $line = <LESEN> ) {
        my $nwline = $line;
        $nwline =~ s/&nbsp;//g;
        $nwline =~ s/\.(?! )/. /g;
        $nwline =~ s/\,(?! )/, /g;
        chomp ( $nwline );
        print SCHREIBEN $nwline;
        if ( index ( $nwline, $bisZum ) == 0 ) { last; }
        }
      close ( LESEN );
      close ( SCHREIBEN );
      unlink $outInf;