sub parse_start {
   return unless $_[0] eq 'img';   # nur IMG-Tags
   #return unless exists $_[1]->{alt}; # alt-Attribute vorhanden?
   return unless exists $_[1]->{src}; #meins
   return unless $_[1]->{src} =~ /k1j|k0j/;
   my $alttext = $_[1]->{alt};
   my $src     = $_[1]->{src};
   # mach was mit $alttext
   print "\n$alttext  $src\n";
}