Select Code to Download

my $s = 'the quick brown fox';
$packed = pack 'Ca*', length $s, $s;

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