use File::Dosglob;
$dir = '/path/to/dir';
my @m = File::DosGlob::doglob(1,$dir.'/*'); # trailing /* is vital!
for (@m) {
  next unless m!/(\d*)(\d{3}\.jpg)$!;      # skip files which do not h
+ave at least 3 nos and .jpg
  my $sub = ('0'x(3-length($1))).$1;       # append 0s if req'd
  my $rest= $2;
  mkdir ($dir.$sub) unless -e ($dir.$sub); # create dir if req'd
  rename $_, $dir.$sub.'/'.$sub.$rest;     # move file using rename
}
[download]

*untested code

Dingus

---

Enter any 47-digit prime number to continue.