my $tag   = @{$tagstruct}[0];
  if ($tag =~ m!/!)
  {
    #print "endtag";
    next;
  }
  my %attrhash= %{@{$tagstruct}[1]};
  my @attrarr = @{@{$tagstruct}[2]};

##</code><code>##

  if ($tagstruct->is_end_tag)
  {
    #print "endtag";
    next;
  }
  my %attrhash= %{$tagstruct->return_attr};
  my @attrarr = @{$tagstruct->return_attrseq};