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

##</code><code>##

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