Select Code to Download

package Filt;
use Filter::Simple;
...
};

1 ;

use strict;
use Benchmark::Timer;
use Filt;
...
$tmp =~ s/((?:<line>\s*(?:.{1,$short_line_threshold})<\/line>\s*){$sho
+rt_line_counter,})(<line>\s*(?:.{$long_line_threshold,}?)<\/line>)/$1
+<\/para><para>$2/gs;

print $t->report();