I suppose you could use Date::Parse to check to see if you get a valid Unix Timestamp.
If you want to have the date entered in any format and converted to what you describe you might take a look at Date::Manip, though that module is pretty big.