$number =~ s/([^9]?9*)$/$1+1/e;