chomp($value = ); if($value =~ /(0[1-9]|[12][0-9]|3[01])[- /.](0[1-9]|1[012])[- /.] \d\d\d\d)/) { print "date"; }else{ print $value; print "not a date"; }