# Create an example byte-sequence
$count = 3;
$str1 = "First string";
$str2 = "Second string";
$str3 = "Third string";
$bytes = pack("C C A* C A* C A*", $count, length($str1),
   $str1, length($str2), $str2, length($str3), $str3);

unpack("C", $count);
$bytes = substr($bytes, 1);
foreach $i (1 .. $count) {
   $length = unpack("C", $bytes);
   $str = unpack("xA$length", $bytes); # null byte skips length
   $bytes = substr($bytes, $length + 1);
   print "$str\n";
}