Select Code to Download

c:\test>perl -v

...
Binary build 811 provided by ActiveState Corp. http://www.ActiveState.
+com
ActiveState is a division of Sophos.
Built Dec 13 2004 09:52:01

for( 30, 300, 3000, 30000 ) { 
    $s = 'x'x$_ . 'reg exp' . 'x'x$_; 
...
         Rate REGEX INDEX
REGEX 11587/s    --  -24%
INDEX 15292/s   32%    --