Select Code to Download

>perl -MDevel::Peek -e"Dump $_=chr(0x2660)x100; length $_; Dump $_"
SV = PV(0x2379ec) at 0x1845eec
...
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = 100         <---------- char length