my $number = 123;

print "$number\n" if ($number) = ( '0' x 9 . $number ) =~ m/(\d{9})$/;