# in-place
sub asciiize {
  $_[0] =~ s/([^\0-\x7f])/exists($asciiize{$1})?$asciiize{$1}:"?"/eg;
  return $_[0];
}

# returns new
sub giveascii {
  asciiize(my $x = shift);
}