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

##</code><code>##

^   Match the beginning of the line
$   Match the end of the line (or before newline at the end)

##</code><code>##

# Under Construction