>>698
($year, $month, $day) = ($1, $2, $3) if $date =~ /^(\d\d\d\d)-(\d\d)-(\d\d)/;