my @ImageTagList =
    ( $HTMLPage =~ m!<img src="/some/longish/path/image2002(\d+)607.gif">!gi );