my $string       = "this is a string" x 300 . "xyz";

cmpthese(500000, {
    'index' => sub {
        my $res;
        $res = index($string, "xyz");
    },
    regex   => sub {
        my $res;
        $res = $string =~ /xyz/;
    },
});