my @line = unpack( 'A10A8A8A8A8A8', $line );