@fields = unpack($format, $record);
  $record = pack($format2, @fields);