Select Code to Download

      my @kids=$_->children;
      my $struct=' '.join ('  ', map { $_->tag} @kids).' ';
      my $hit=$struct=~/^(?:$subelms{$tag}{'dtd_re'})$/;
      $loose=!$hit;
      $loose=!$loose if $subelms{$tag}{'rev'};