if ($input =~ m/^[0-9]$/) {
 ...
}