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