my $packed = pack 'C/a*', 'the quick brown fox';
print "'$packed'";