my $dateiname = '!alles alles.geht vorbei (ABCDE)?.mp3';
my ($name, $ext) = $dateiname =~ /\W*(.*?)\W*(\.\w+)?$/;
$name =~ s/[\W_]+/_/g;
$dateiname = $name.($ext || '');
print $dateiname;