rename 's/^Image\.png$/Image01.png/ || s/^Image\s+\((\d+)\)\.png$/sprintf "%s%02d.png", "Image", $1/e' *.png
rename
— это то, что нужно для вашего сценария. Его рабочая модель следующая: берет список имен файлов и применяет допустимое преобразование Perl
к каждому имени файла, и то, что получается в результате преобразования, становится новым именем имени файла. Зависит от того, что право собственности (обычно) не имеет значения с функциональной точки зрения, однако: