sub _mapchar {
   my ($char) = @_;
   if ( $char !~ /[\r\n\s]/) {
        my $nbytes = length encode_utf8($char);
        if ($nbytes > 1) {
            $char = exists $_table{$char} ? $_table{$char} : '?';
        }
   }
   return $char;
}