my ($y, $m, $d) = ( $date =~ /(\d{4})-(\d{2})-(\d{2})/ );
$date_num = $y*10000 + $m*100 + $d;