Select Code to Download

#! perl -slw
use strict;
...
2000 trials of ((?:<line>\s*(?:.{1,$short_line_threshold})</line>\s*){
+$short_line_counter,})(<line>\s*(?:.{$long_line_threshold,}?)<
/line>)
 (460.000ms total), 230us/trial