$data = 'AAAAAABBBBB' x 10;; @bits = unpack '(A6A5)*', $data;; print for @bits;; AAAAAA BBBBB AAAAAA BBBBB AAAAAA BBBBB AAAAAA BBBBB AAAAAA BBBBB AAAAAA BBBBB AAAAAA BBBBB AAAAAA BBBBB AAAAAA BBBBB AAAAAA BBBBB