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

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

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

Как сделал я:
1. Переименовал файлы во 2 и 3 папках с помощью Выделить и переименовать
2. Выгрузил всё в одну папку
3. Переименовал и в этой папке с помощью Выделить и переименовать.
4. Удалил лишние с помощью ВиндосПоверШелл.

Если у кого установлен Perl:

#!/usr/bin/perl

for(<*.txt>){
$old=$_;
s/(\d+).*(\.txt)/$1+72/e;
$_.=$2;
rename $old, $_;
}