sub narrow_char {
    $_[0] =~ s/(.)/chr(ord($1)>>8)/eg
      if (length($_[0]) * 3 == do { use bytes; length $_[0] } );
    $_[0]; 

}