open(my $fh,'<',"$datei");
binmode($fh,':utf8');
local $/ = "\n";