Select Code to Download

$ perl  index_regex_bench.pl
           Rate Regex Index
Regex 5010020/s    --  -23%
Index 6544503/s   31%    --

#!/usr/bin/perl 
use Benchmark qw(:all); 
...
sub code2 { 
    my $val = ($sentence =~ /fox/);
}