push @a, grep {
    my $img= get($_);
    my( $h, $w )= imgsize( \$img );
    $h <= $maxh  &&  $w <= $maxw;
} $str =~ /.../g;
[download]