my ($server_li, $server_vn, $server_mode, $server_stratum, ... )
     map { oct("0b".$_) } unpack 'a2a3a3a8...', $received_data