E:\Perl\site\lib\My>perl Filter.pm
Subroutine report redefined at E:/Perl/site/lib/My/Filter.pm line 16.
abcdefghijklmnopqrstuvwxyz
====================Timing of regexs in Filter.pm====================
2000 trials of pqr
 (260.000ms total), 130us/trial

5000 trials of (\G(?:.{3})+?)(?<=...)(.)(.)
 (640.000ms total), 128us/trial