Select Code to Download

while ($get_gal =~ m#(http://{...}.jpg)#g) {
   my $image = get($1);
...
   push @found_images, $1
      if $height <= $max_height and $width <= $max_width;
}

while ($get_gal =~ m#(http://{...}.jpg)#g) {
   my $image = get($1);
...
   next if $height > $max_height or $width > $max_width;
   push @found_images, $1;
}

my @found_images =
   grep { my $image = get($_);
          my ($height, $width) = imgsize(\$image);
          $height <= $max_height and $width <= $max_width }
   $get_gal =~ m#(http://{...}.jpg)#g;

sub is_image_size_ok {
   local $_ = @_ ? $_[0] : $_;
...
my @found_images = grep is_image_size_ok,
                   map m#(http://{...}.jpg)#g,
                   $get_gal;