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