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";
}

# ...