Help for this page
#!/usr/bin/env perl ... $s = time; $out = join( chr(0), unpack '(A1)*', $buf ) .chr(0); print time() - $s, "\n";
0.00459790229797363 0.446739912033081