Select Code to Download

if ($var && $var !~ /\D/) {
    # We have a value and it's a number
}

sub isNum {
    if ($var && $var !~ /\D/) {
...
        return 0;
    }
}