print unpack '(B4)*', $vec;