}

sub hdl_char {

   my ($p, $str) = @_;
   no strict 'refs';

   $feed->{'string'} .= $str;