pack('n', length($string))

##</code><code>##

pack('n/a*', $string)

##</code><code>##

pack('n', length($string)) . $string