$input = <STDIN>
  if ($input =~ /\d/) {
    print "input was a single digit number\n";
  } else {
    print "input wasn't a single digit number\n";
  }

##</code><code>##

$input = <STDIN>
  if ($input =~ /[0-9]/) {
    print "input was a single digit number\n";
  } else {
    print "input wasn't a single digit number\n";
  }

##</code><code>##

my $number;
chomp ($number = <STDIN>);
if ($number < 10) {
  print "input was either 0-9 or -\n";
}