Select Code to Download

use Benchmark qw(timethese);

...
         index => sub { my $i =  index( $s, "cde" ) },
    }
);