my @a = unpack '(a1)*', $buffer;