1. rename($dir1,$dir2) и всё.
2. Мне на вскидку пришло 2 варианта не знаю какой лучше(всё таки 3 часа ночи башка не варит
) первый строка=~s/переменная-шаблон/переменная-замены/g ну может ещё какие нужно опции типа i и т.д. А вторая это использовать массив=split(переменная-шаблон,строка) + строка=join(переменная-замены,массив) выбирай что больше нравится.