my $name = "alles alles geht vorbei (ABCDE).mp3";
$name =~ tr/a-zA-Z0-9._//c;
say $name;