全角转半角字符

# 全角字符第一字节 = 163(0xA3), 第二字节为对应半角字符 + 128

# 全角中文第一字节 > 163

my $str = "０１９ＡａＢｂＹｙＺｚ＼＂，．？＜＞｛｝［］＊＆＾％＃＠！～（）＋－｜：；";

print "$str\n";

$str =~ s/\x{A3}(.)/chr(ord($1) - 128)/eg;

print "$str\n";