my $len = length $unpacked_string; my $packed_string = pack qq{b$len}, $unpacked_string;