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