Select Code to Download

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

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

$record = [         none          lt2dpmnt]
field=[none]
field=[lt2dpmnt]