my $nextRec = substr( $bufs[ $r ], -1024, 1024, '' );  // 1/64th iterations/buffer.

##</code><code>##

E:\junk>c:t-salvaTheory.pl
0Took 492 seconds.