Select Code to Download

$string = "thisisatest";
for($x=0;$x<(length($string)-1);$x++){
...
  substr($temp,($x+1),1) = substr($string,$x,1);
  print $temp, "\n";
}

htisisatest
tihsisatest
...
thisisaetst
thisisatset
thisisatets

($_='jjjuuusssttt annootthheer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;