sub field
    { my( $parent, $tag)= @_;
      my @elts= $parent->getElementsByTagName( $tag);
      return unless( @elts);
      my $elt= $elts[0];
      return unless( $elt->hasChildNodes);
      return join( '', map { $_->getData } $elt->getChildNodes);
  }