sub hdl_char {
 
      my ($p, $str) = @_;