my ( $y, $m, $d ) = split /\D+/, $ymd;