my ($y, $m, $d) = map { 0+$_ } unpack('a4a2a2', $str);