The regex is missing a right anchor $ for one thing... have a look into   perldoc perlre   for alternates like   (?:\d\d|\d{4}).

Also have a look at modules like   Time::ParseDate   and the like for actually valuating the numers for dates that make sense.

Cheers, Sören