open(my $alt,'<:encoding(iso-8859-2)',$datei) or die("Mist 1");
open(my $neu,'>:encoding(UTF-8)',$temp) or die("Mist 2");