my ($len, $val) = unpack 'C/a*', $packed;
print "$len:$val;";