my ($y, $m, $d) = ($s =~ /@{[REGEX]}/)[0, 1, 2];