if( $key eq $name )
			{
				print "Treffer" , "\n";
				print "\n";
				
				print "Ersetze Werte ..." , "\n";
				
				my $datei     = "test.txt";
				my $quellwort = "$key = \Q$value\E";
				my $zielwort  = "$name = $Speicherung_Hashes{ $name }";
				
				print "Vorhandene Variable : $value" , "\n";
				print "Ersetzende Variable : $Speicherung_Hashes{ $name }" , "\n";
								
				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);
			}