if ((($month, undef, $day, $year) = /($month)($day)($year)/io) ||