my ( $y, $m, $d ) = map { int } split /-/, '2006-04-03.14159';