#!/usr/bin/perl

#sample usage:
#find . -name "*.pdf" -exec ./rename.pl '{}' \;

use strict;

my $file1 = $ARGV[0];
my $file2 = $file1;



#Renaming ./MC-33974_ALL_8-19-11.pdf to ./MC-33974.pdf
#Renaming ./RE-53191_OCR_20110819.pdf to ./RE-53191.pdf
#$file2 =~ s/([A-Z]{2}-\d{5})(\s)(.*)\.PDF$/$1$2\.PDF/;

#Renaming ./MC-33401.pdf to ./MC33401.pdf
#$file2 =~ s/([A-Z]{2})-(\d{5})\.pdf$/$1$2\.pdf/;
$file2 =~ s/([a-z]{2})-(\d{5})(.*)/$1$2\.pdf/;
print "Renaming $file1 to $file2\n";

system "mv '$file1' $file2";