SpecificRename

#!perl

@{$_} =  grep {!m/^\.+?/} readdir dir if opendir dir, '.';
foreach (@{$_}) {
    next  if -d;
    m/\-(\d+)(\.\w{3,3})$/;
    my ($l, $replace, $ext, $newFileName) = (length $1, $1, $2, '0000');
    $newFileName =~ s/\d{$l}$/$replace/e;
    `mv $_ $newFileName$ext`;
}

__END__