Переименовать файлы в папках средствами Виндос или как?

Был на выходных в гостях и там на машине нет Перла. - Я оказался в большом тупике. Задача:

В 3 папках 1,2,3 лежат файлы которые называются:

1 дорожка 1.jpg

2 дорожка 2.jpg

Нужно собрать все папки в одну и сделать сквозную нумерацию. последний файл 1 папки 72.jpg, а первый файл второй папки 73.jpg. Последний файл 2 папки 140.jpg. Первый файл 3 папки - 141.jpg.

Есть Виндос 10 и интернет. Ставить ничего не нужно вообще - компьютер чужой.

Как сделал я:

1. Переименовал файлы во 2 и 3 папках с помощью Выделить и переименовать

2. Выгрузил всё в одну папку

3. Переименовал и в этой папке с помощью Выделить и переименовать.

4. Удалил лишние с помощью ВиндосПоверШелл.

Но как то это всё долго и не красиво.

А может есть изящное решение?

Спасибо.

---------- Добавлено 11.05.2018 в 18:05 ----------

Для второй папки. Тоже не очень красиво

#!/usr/bin/perl

for(<*.txt>){

$old=$_;

s/(\d+).*(\.txt)/$1+72/e;

$_.=$2;

rename $old, $_;

}