perl Unicode-EastAsianWidth