if ($var  =~ /^((0[1-9]|[12][0-9]|3[01])-(0[1-9]|1[012])-(20)?\d\d\s\w)/)  {

}