use HTML::Parser ();
my $p = HTML::Parser->new(
  api_version => 3,
  start_h => [\&start, "tagname, attr"],
  marked_sections => 1,
 );
$p->parse_file("datei.html");
sub start {
  print "$_[1]->{src}" if $_[0] eq "img"
}