my ($len, $val) = unpack 'Ca*', $packed;
print "$len:$value";
__END__
output:
19:the quick brown fox