this variation...

$s = time;
$out4 = (pack 'v*', unpack 'C*', $buf) | ("\x00$filler" x length $buf)
+;
print time() - $s, "\n";
[download]

... introduces very low overhead.