Select Code to Download

#!perl -w
use strict;
...
                regex => sub { 'fooabc123' =~ /123/ }
             } );
cmpthese $result;

Benchmark: running index, regex for at least 5 CPU seconds...
     index:  6 wallclock secs ( 6.56 usr + -0.03 sys =  6.53 CPU) @ 81
+19742.77/s
...
           Rate regex index
regex 4481231/s    --  -45%
index 8119743/s   81%    --

#!/usr/bin/perl
use warnings;
...
   }
});
cmpthese $result;

Benchmark: running LCSIndex, LCSRegEx for at least 5 CPU seconds...
  LCSIndex:  6 wallclock secs ( 5.28 usr +  0.00 sys =  5.28 CPU) @ 34
+63.93/s (n
...
           Rate LCSRegEx LCSIndex
LCSRegEx  916/s       --     -74%
LCSIndex 3464/s     278%       --