sub wrap_cdata {
  for (@_) {
    eval { wrap_cdata(@$_); 1 } and next;
    eval { wrap_cdata(values %$_); 1 } and next;
    s/(?<![^>])([^<]+)/<![CDATA[$1]]>/g;
  }
}