Help for this page
$number =~ s/.*?(\d{1,9}).*/sprintf "%09d", "$1"/e;
my $number = <STDIN>; if( $number !~ /\d/ ) { ... else { # clean up and pad input }