use warnings;

system"cls";

print "Which TEXT File shall be changhed?\n";


my $datname = <STDIN>;
chomp($datname);
open(READFILE,"<$datname");
my $erssetz = <READFILE>;
close(READFILE);


print "\n";

my $vor = $erssetz;


print "Which word you want to be REPLACED? \n";



my $wort = <STDIN>;
chomp($wort);

print "\n";


print "What word shall be there the REPLACER? \n";


my $ersetz = <STDIN>;
chomp($ersetz);


print "\n";


$erssetz =~ s/$wort/$ersetz/g;

open(WRITEFILE,">Ersetzt_$datname");
print WRITEFILE $erssetz;
close(WRITEFILE);



print "Finished -> saved AS : REPLACED_$datname \n";