my ( $report, $status, $unit, $exp, $weight ) = unpack 'xCCCCS', $data
    $weight /= 10;
    if ( $exp != 255 && $exp != 0 ) {
        $weight ^= $exp;
    }