my $number = '0001999';
$number =~ s/([^9]9+|\d)$/$1+1/e;
print "$number\n";