$mnem !~ m/[^\x20-\x7F]/ or next; # skip unicode
# (state $seen = {})->{$chr}++ and next;
printf "%s => %s,\n", pp($mnem), pp($chr);
$mnem !~ m/[^\x20-\x7F]/ or next; # skip unicode
# (state $seen = {})->{$chr}++ and next;
printf "%s => %s,\n", pp($mnem), pp($chr);