Select Code to Download

sub missing { 
  for$x(($_[0]=~/(.+)\..+/)[0]..($_[$#_]=~/(.+)\.(.+)/)[0])
...
}

print missing qw (bar001.jpg bar002.jpg bar010.jpg);