perl -C63 -MDevel::Peek -Mutf8 -mText::CharWidth=mbswidth -le '$_="(\x{5fcd} Guimarães)"; Dump($_); print mbswidth($_); print' SV = PV(0x8154b00) at 0x8153bd4 REFCNT = 1 FLAGS = (POK,pPOK,UTF8) PV = 0x8170460 "(\345\277\215 Guimar\303\243es)"\0 [UTF8 "(\x{5fcd} Guimar\x{e3}es)"] CUR = 16 LEN = 20 14