$out = pack 'v*', unpack 'C*', $buf;