sub child_nodes {
   my %c = $_[0]('%');
   return
      map { ( my $t = $_ ) =~ s{/CONTENT\K}{}; [ $t => $c{$_} ] } 
         grep $_ ne 'CONTENT',
            keys %c;
}