my $number = 1;
($number) = "000000000$number" =~ m[(.{9})$];
print $number;
000000001