>c:\progs\perl561\bin\perl -MDevel::Peek -wle"$x=chr(0x2660); print length $x; Dump $x" 1 SV = PV(0x183eb18) at 0x1832a0c REFCNT = 1 FLAGS = (POK,pPOK,UTF8) PV = 0x182013c "\342\231\240"\0 CUR = 3 LEN = 4