You have to insert parens into your m## operation
m#(http://images\.imagefap\.com/images/thumb/\d+/\d+/\d+\.jpg)#g
or use $&
# update: this won't work anyways - see previous post and followup
push @found_images, $get_gal =~ m#http://images\.imagefap\.com/imag
+es/thumb/\d+/\d+/\d+\.jpg#g
if do {
my $image = get($&);
print "found $1<br>";
my ($height, $width) = imgsize(\$image);
$height < $max_height and $width < $max_width;
};
at the expense of speed - see perlvar, section
BUGS for that.
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}