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

##</code><code>##

#!/usr/bin/perl 
use Benchmark qw(:all); 
use strict; 
use warnings; 

my $sentence = "The quick brown for jumps over the lazy dog"; 
my $results = timethese(5000000, 
{ 
    'Index' => \&code1, 
    'Regex' => \&code2, 
}, 
'none' 
); 
cmpthese( $results ) ; 

#------ 
sub code1 { 
    my $val = index $sentence, "fox" ; 
} 
#------ 
sub code2 { 
	my $val = ($sentence =~ /fox/);
}