It being your first script, I won't beat you over the head with the CPAN bat. However, using regular expressions to parse HTML is generally considered a no-no. It'd probably be better to use HTML::Parser or, my personal favorite, HTML::TokeParser:

use HTML::TokeParser;

# ...

my $p = HTML::TokeParser->new($source);

while (my $tag = $p->get_tag("img")) {
  push @src, $tag->[1]{src};
}

# ...

foreach my $src (@src) {
  print LOG $src, "\n";
}

# ...
[download]

For more information, see the docs on HTML::TokeParser.

Also, crazyinsomniac twisted my arm to mention HTML::TokeParser Tutorial. There, I said it.

[ ar0n ]