my $len = unpack 'C/a*', $packed;
my ($data) = unpack 'C/a*', $packed;