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