#! /usr/bin/perl

###################################################################
# This script fixes the series numbering for season 2 of Monty    #
# Python's Flying Circus                                          #
###################################################################

use warnings;
use strict;

while (<*>) {
	my $old_file = $_;
	/(\d{2})/;
	my $n = scalar $1;
	$n += 1; 
	$n = length($n) == 1 ? "0$n" : $n;
	s/(\d)x\d{2}/$1x$n/;
	
	
	print "$old_file -> $_\n";
	rename($old_file,$_);
}