Tw!m4

1. открываешь диру ( opendir )
2. считываешь содержимое диры в массив ( readdir )
3. перееименовываешь в цикле каждый элемент массива ( foreach $file (@files) { )
в блоке цикла проверяешь регулярным выражением соответствует ли имя файла тем, что нужно переименовать, если соответствует:
rename $file, ++$num.'jpg';
переменную $num инициализируешь нулем, за пределами блока, конечно..