foreach (@mp3) {
  tr/a-zA-Z0-9./_/cs;  # ersetze alles außer a-z, A-Z, 0-9 und '.' durch ein einzelnes '_'
  s/_\././g;  # entferne '_' vor '.'
  s/^_//;     # entferne '_' am Anfang
}