perl -MDevel::Peek -e'$a = "3qwer"; $b = "3"; Dump $a; $a == $b; Dump $a;'<br>
SV = PV(0xca7b78) at 0xcce880<br>
REFCNT = 1<br>
FLAGS = (POK,pPOK)<br>
PV = 0xcc92c0 "3qwer"\0<br>
CUR = 5<br>
LEN = 8<br>
SV = PVNV(0xca8ff0) at 0xcce880<br>
REFCNT = 1<br>
FLAGS = (POK,pIOK,pNOK,pPOK)<br>
IV = 3<br>
NV = 3<br>
PV = 0xcc92c0 "3qwer"\0<br>
CUR = 5<br>
LEN = 8<br>