my ($stx,$status1,$status2,$data1,$data2,$etx,$crc) =
    unpack("CCCa5a5CC", $data_received);