my ($m, $d, $y) = /\d+/g;