$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";