my ( $y, $m, $d ) = '2006-04-03.14159' =~ /\d+/g;