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

##</code><code>##

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