freeone3000

#!/usr/bin/perl
use warnings;
use strict;
my($dir, @files, %files);
opendir($dir, ".");
@files = readdir($dir);
closedir($dir):
foreach (my $fn) @files {
        my($newfn);
        $newfn = $fn;
        $newfn =~ s/[_\s]?[\[\(].*?[\]\)][_\s]?//g;
        $newfn =~ s/_/ /g;
        $newfn =~ s/ep\s*/- /gi;
        $newfn =~ s/(\w+?)\s(\d+\.\w+)/$1 - $2/g;
        print "Changing $fn to $newfn";
}