#! /usr/bin/perl

###################################################################
# This script fixes the series numbering for season 2 of the 4400 #
###################################################################

use warnings;
use strict;

foreach my $file (<*>) {
    my $new_file;
    if ($file =~ /part1/) {
        $new_file = "2x01.avi";
    } else {
        $file =~ /E(\d+)/;
        my $n = scalar $1;
        $n += 1; 
        $n = length($n) == 1 ? "0$n" : $n;
        $new_file = "2x$n.avi";
    }
    print "$file -> $new_file\n";
    rename($file,$new_file);
}