Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Just a note I have seen hundreds of forums and this one is the best above the best. Always get quick answers with no attitudes and always get the help from the best people who really enjoy helping people. Is there a place to donate or help fund this great site??

My Perl question is I need to create a regular expression in Perl to find if anything except a positive integer was entered.

No letters or characters except a positive integer. For example the regular expression will check
12 good entry.
1a bad entry
4 good entry
1a bad entry
-3 bad entry
test bad entry

My attempt is not validating like I want it to:
if($DataEntry =~ !/d.*+) { print "bad entry"; } else { print "good entry"; }
Please advise.