Help for this page

Select Code to Download

Select or download this
```
$number =~ s/([^9]?9*)$/$1+1/e;
```

Select or download this

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