@fields = unpackeb('i, p6.0, s e10', $record);