Select Code to Download

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

  if ($tagstruct->is_end_tag)
  {
...
  }
  my %attrhash= %{$tagstruct->return_attr};
  my @attrarr = @{$tagstruct->return_attrseq};