sub callback {
   my($tag, %attr) = @_;
   return if $tag ne 'a href ';  # we only look closer at <img ...>
   push(@imgs, values %attr);
}