$number = 123;
$number =~ s/(\d{0,9})$/'0' x (9 - length $1) . $1/e;
print "$number\n";