if ( $DataEntry =~ /^\d+$/ ) { 
    print "good entry";
} else { 
    print "bad entry";
}