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