$ diff  hctype.h.orig hctype.h
42c42
<     0x01, 0x78, 0x78, 0x78, 0x78, 0x78, 0x78, 0x78,  /* 160 - 167 */
---
>     0x78, 0x78, 0x78, 0x78, 0x78, 0x78, 0x78, 0x78,  /* 160 - 167 */


##</code><code>##

  if ($charset) {
    $mini_parser = undef;
    my $decoded = decode($charset, $unencoded_buffer, Encode::FB_QUIET);
    $decoded =~ s/([\x80-\x{FFFF}])/sprintf('&#x%02X;',ord($1))/ge;
    $root->parse($decoded);
  }


##</code><code>##

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/