foreach(@datei){
next if $_ eq '#';
next if $_ eq '\n';
print $_;
}