($datei = $pfad_und_datei) =~ s/^.*[\\\/]//g;