$buf = chr(1) x 1e6;;
$s = time; 
$out = join( chr(0), unpack '(A1)*', $buf ) .chr(0); 
print time() - $s;;
11.3910000324249