if ($input =~ m/^\d$/) {
 ...
}