($year, $month, $day) = $date =~ m/(.{4})(.{2})(.*)$/;