my @bits = unpack '(A6A5)*', $all_the_data; #### $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