#!/bin/bash
ROOT_PATH=$1
find "$ROOT_PATH" -type d | perl-rename 's/[\s\(\),;]/_/g'
find "$ROOT_PATH" -type d | perl-rename 's/__/_/g'
find "$ROOT_PATH" -type d | perl-rename 's/_$//g'
find "$ROOT_PATH" -type f | perl-rename 's/\w+_\(disc_[0-9]\)_//g'
find "$ROOT_PATH" -type f | perl-rename 's/[\s\(\),;]/_/g'
find "$ROOT_PATH" -type f | perl-rename 's/__/_/g'
find "$ROOT_PATH" -type f | perl-rename 's/_.mp3/.mp3/g'