#! perl -slw
use strict;
use re 'eval'; #! <<< ADD THIS LINE
use My::Filter;

my ($short_line_threshold, $short_line_counter, $long_line_threshold) = (40,2,50);

my $data = q[
<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
];

my $tmp;
for (1..1000) {
	$tmp = $data;
	$tmp =~ s/((?:<line>\s*(?:.{1,$short_line_threshold})<\/line>\s*){$short_line_counter,})(<line>\s*(?:.{$long_line_threshold,}?)<\/line>)/$1<\/para><para>$2/gs;
}
print $tmp;


print '=' x 20, 'Timing of regexs in ', $0, '=' x 20;
print My::Filter::report();

__END__
C:\test>testmyfilter

<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
</para><para><line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
</para><para><line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>
<line>  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</line>

====================Timing of regexs in C:\test\testMyFilter.pl====================
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