or download this
$ perl testRegexen.pl
Benchmark: running capture, noCapture, noParens, twoRegexen for at lea
+st 3 CPU seconds...
capture: 4 wallclock secs ( 3.20 usr + 0.00 sys = 3.20 CPU) @ 14
+1750.00/s (n=453600)
...
noCapture 279933/s 97% 7% -- -48%
twoRegexen 540171/s 281% 106% 93% --
$