my ($m, $d, $y) = split /-/;