76: if ($node->{Data})
77: {
78:     if ($node->{Char} =~ m/^\s*$/) {
79:         $node->{Char} = "";
80:     } else {
81:         die "oops [$node->{Char}]";
82:     }
83:     $val = $node->{Data};
84: }