my @Zeilen;

				open( DATEI , "$datei" );
                while ( <DATEI> ) { push @Zeilen, $_; }
                close(DATEI);

				foreach ( @Zeilen ) { $_ =~ s/$quellwort/$zielwort/; }
				
				open(DATEI, ">$datei" );
				foreach ( @Zeilen ) { print DATEI "$_"; }
				close(DATEI);