$s = '0123456789';;
++substr( $s, $_, 1) for 0 .. length $s;;
print $s;;

12345678911