$datei_name =~ s/[)]//g;     # entferne alle )
$datei_name =~ s/[\s(]/_/g; # ersetze alle Leerzeichen und ( und ) druch _