if($DataEntry =~ !/d.*+) { print "bad entry"; } else { print "good entry"; }