perl -E"$o=$_ 
and s[^(.+)(\d+)( - \d+\.jpg)][$1.sprintf('%03d',$2).$3]e 
and say qq[rename $o $_] 
for map{ glob $_ .'\*.jpg'} grep{ -d } glob $ARGV[0]" \theDir\*