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