push(@pics, $1) while $mech->content =~ m#(images/thumb/\d+/\d+/\d+\.jpg)#gi;