Help for this page

Select Code to Download

Select or download this

$ perl -MDevel::Peek -e \
'my $toes = "potatoes"; substr($toes, 0, 4, ""); Dump($toes);'
...
  PV = 0x300b64 ( "pota" . ) "toes"\0
  CUR = 4
  LEN = 5