my $date = '2009/12/12'; if($date !~ m!^((?:19|20)/d/d)[- /.](0[1-9]|1[012])[- /.](0[1-9]|[12][0-9]|3[01])$!){ die; }