my ( $year, $month, $day ) = unpack $YYYYMMDD_format, $date_string;