#! /usr/bin/perl

###################################################################
# This script fixes the series numbering for The Animal of        #
# Farthing Wood
###################################################################

use warnings;
use strict;

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