Select Code to Download

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

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

# Under Construction