if ($number =~ /^[0-9]$/) { ...