Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
            twoRegexen => \&twoRegexen,
        }
     );

Select or download this

$ perl testRegexen.pl
Benchmark: running capture, noCapture, noParens, twoRegexen, each for 
+at least 3
...
noCapture   827692/s        14%         --        -5%       -44%
noParens    871937/s        20%         5%         --       -41%
twoRegexen 1478049/s       103%        79%        70%         --