Besides the error in your regex (already pointed out), validating dates would be better done by a date library, like DateTime, Time::Piece, or Time::Local.