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

11111111119999