sub xml_char {
    my ($xp, $txt) = @_;
    my $el = $xp->current_element();
    $val{$el} .= $txt if $txt =~ /\S/;
}