my @strings = unpack 'c/(c/a*)', $bytes;