Select Code to Download

$number =~ s/.*?(\d{1,9}).*/sprintf "%09d", "$1"/e;

my $number = <STDIN>;
if( $number !~ /\d/ ) {
...
else {
  # clean up and pad input
}