Select Code to Download

perl -MDevel::Peek -e " my $a = q!1234!; Dump $a; "
perl -MDevel::Peek -e " my $a = q!1234!; substr$a,0,2,q!!; Dump $a; "
perl -MDevel::Peek -e " my $a = q!1234!; substr($a,0,2)=q!!; Dump $a; 
+"
perl -MDevel::Peek -e " my $a = q!1234!; substr($a,0,2)=q!!; substr$a,
+0,2,q!!; Dump $a; "
perl -MDevel::Peek -e " my $a = q!1234!; substr$a,0,2,q!!; substr($a,0
+,2)=q!!; Dump $a; "

$ perl -MDevel::Peek -e " my $a = q!1234!; Dump $a; "
SV = PV(0x3e6964) at 0x3e8b54
...
  PV = 0x98f778 ( "1234" . ) ""\0
  CUR = 0
  LEN = 4

$ perl -MDevel::Peek -e " my $a = q!1234!; Dump $a; "
SV = PV(0x3f6d74) at 0x9ba724
  REFCNT = 1
...
  PV = 0x9bfa58 ( "1\0023\4" . ) ""\0
  CUR = 0
  LEN = 4

perl -e"my $c = 0; while(1){print qq!\r!,$c++;  my $a = q!1234!; subst
+r($a,0,2)=q!! for 1 .. rand(100); } "