my %fullwidth_to_narrow = map chr, (
   ( map { $_ => $_-0xFF01+0x21 } 0xFF01..0xFF5E ),
   0xFF5F => 0x2985,
   0xFF60 => 0x2986,
   0xFFE0 => 0x00A2,
   0xFFE1 => 0x00A3,
   0xFFE2 => 0x00AC,
   0xFFE3 => 0x00AF,
   0xFFE4 => 0x00A6,
   0xFFE5 => 0x00A5,
   0xFFE6 => 0x20A9,
);