There's the Image::Grab module, which uses the HTML::Parser module to look for images and, well, grab them.

That's much more recommended than rolling your own regex solution.