my @FIELDS = unpack('a9a4a10a8', $record);