#! perl -slw
use strict;
use My::Filter; #<< Include the module 

my $stuff = 'abcdefghijklmnopqrstuvwxyz';
for (1..1000) {
	if ( $stuff =~ m[pqr] ) {
		$stuff =~ s/(\G(?:.{3})+?)(?<=...)(.)(.)/$1$3$2/g;
	}
	$_ = $stuff;
	my $OK = 1 if m[pqr];
}
print $stuff;

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