$n = unpack 'C', $bytes;; print for unpack 'x (c/a*)' . $n, $bytes;; First string Second string Third string