Select Code to Download

128  ToastyX  PHP  Failed
130  ToastyX  PHP  Passed
127  ToastyX  PHP  Failed
129  ToastyX  PHP  Failed
129  ToastyX  PHP  Passed

<?for($r=fgets(STDIN).~XXXXXXXXXXXX;11^printf(~X..1*ord($r[6+$h]).s,($
+h^$r%12?g:p)&($h^"$r[3]$r[4]"/5?g:u)|~XXX);$h=12-$h-$d^=1);

for my $i (48..58) {
   printf " %08b  (ord %3d %c)\n", $i, $i, $i;
}

  00110000   (ord 48, "0" character)
  00110001   (ord 49, "1" character)
...
  00111000   (ord 56, "8" character)
  00111001   (ord 57, "9" character)
  00111010   (ord 58, ":" character)

     00111010  (ord  58, ":" character)
  &  10100000  (ord 160)
  =  00100000  (ord 32, space character)

     00111001  (ord  57, "9" character)
  &  11111111  (ord 255)
  =  00111001  (ord  57, "9" character)

$r&XXXXX

"$r[3]$r[4]"
substr($r,3)
($r&XXXXX)

<?for($t=fgets(STDIN);23^$x=strpos(~GGGGGGGGGGGGGGGGGGGGGGGG,chr($i++)
+);)echo($x--?$x^($t&XXXXX)/5?o:B:S)&($x^$t%12?$x<12?o:N:x);

<?for($c=S&$t=fgets(STDIN);$x-22;$c[ord(~$l[$x])]=($x^$t%12?$x<12?o:N:
+x)&($x++^($t&XXXXX)/5?o:B))$l=GGGGGGGGGGGGGGGGGGGGGG?><?=$c;

$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:'}')for<>
+!~/:/..11;print"@$_
"for@c

$x = "A";
$x[5] = "Z";
echo "x='$x'\n";

x='A    Z'

x = "A"
x[5] = "Z"
print "x='#{x}'\n"

`[]=': index 5 out of string (IndexError)

$x = "A";
substr($x,5,1) = "Z";
print "x='$x'\n";

substr outside of string

vec($\,vec('GGGGGGGGGGGGGGGGGGGGGG',$_,8),8)=($_^$`%12?$_<12?111:10:12
+0)&($_^$'/5?111:125)for<>!~/:/..21;$\=~y/\0/ /;print

use strict;
use warnings;
...
   close $fh;
   warn "created $progfile, ", length($prog), " bytes\n";
}