foreach my $zeile (@datei) {
   next if $zeile eq "#\r";
   next if $zeile eq "\r";
   print $zeile;
}