my ($tyear, $tmon, $tday) = unpack( 'A4A2A2', '20050622' );