Select Code to Download

    if ($DataEntry =~ /^[1-9][0-9]*$/) {
        print "good entry\n";
    } else {
        print "bad entry\n";
    }

    if ($DataEntry =~ /^[0-9]+$/) {
        print "good entry\n";
    } else {
        print "bad entry\n";
    }