Select Code to Download

our %asciiize = (
  "\x{00C0}" => "A",    "\x{00C1}" => "A",    "\x{00C2}" => "A",
...
  "\x{00DE}" => "TH",
);

# in-place
sub asciiize {
...
sub giveascii {
  asciiize(my $x = shift);
}