Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...
$s = time; 
$out = join( chr(0), unpack '(A1)*', $buf ) .chr(0); 
print time() - $s, "\n";

Select or download this
```
0.00459790229797363
0.446739912033081
```