if ($received_data) {
   my $here = 0;
   my ($server_li, $server_vn, $server_mode, $server_stratum, ... ) =
     map { 
        my $start = $here;
        $here += $_;
        return oct("0b".substr($received_data, $start, $_));
     }
      (2, 3, 3, 8, ... )