#!/usr/bin/perl
use warnings;
use strict;

chdir('e:/perl/comics/');
my @comics = glob('*.png');

foreach(@comics) {
    my $oldname = $_;
    $_ =~ s/(\d+)/sprintf("%03d",$1)/e;
    rename($oldname,$_) unless $oldname eq $_;
}