Select Code to Download

$str="asdkjhasdkjh".chr(0)."666"; 
print "\n$str\n"; print length($str)."\n";
print "yes" if $a = substr($str,12,1); 
print "\n$a\n";

 while( length my $a =substr $z,$g,1) {

$str="asdkjhasdkjh".chr(0)."or 0 and I am 666";
print "\n$str\n";
print length($str)."\n";
...
  print "Character nr $g reads $a\n";
  $g++;
}