my( $year, $month, $day ) = 
    ( $date =~ m{ (\d+) - (\d+) - (\d+) }x );