my ($year, $month, $day) = unpack("A4 A2 A2", $date);