my @z = unpack ("B11 B13", $buf);