my ($y, $m, $d) = unpack('a4a2a2', $str);