my $datei_name = 'alles alles geht vorbei (ABCDE).mp3'; #Dateiname in Variable
$datei_name =~ s/[)]//g;     # entferne alle )
$datei_name =~ s/[\s(]/_/g; # ersetze alle Leerzeichen und ( druch _
$datei_name =~ s/_{2,}/_/g; # ersetze mehr als zwei _ durch einen _