my $l = length($string);
$l += 3; $l >>= 2; $l <<= 2;
pack("a$l", $string);