while( <RF> )
      {
      chomp( $_ );
      $Zeile = $_;