#!/usr/bin/perl
#Umlaute ändern

#print "Dateiname komplett eingeben: ";
$datei = <Fehlerdatei.txt>;
open(LESEN, "<$datei");
@inhalt = <LESEN>;
$zeile = join('',@inhalt);
close (LESEN);

$zeile =~ s/%&¼/ü/;
$zeile =~ tr/a/Ä/;

open (SCHREIBEN, ">$datei");
print SCHREIBEN $zeile;
close (SCHREIBEN);