#!/local/bin/perl -w

use strict;

opendir(DIR, '.') || die "Could not open local directory: $!\n";

while (defined ($_ = readdir DIR)) {
    if ( /en003a(.*)/ ) {
	my $name = "en003a_1$1";
	print "mv $_ $name\n";
	`mv -i $_ $name`;
    }
}
closedir(DIR);

