use Benchmark 'cmpthese';
my $str1 = 'foobarbazqux';
my $str2 = 'foobar';
my $str2len = length $str2;

cmpthese (3e6, {
  regex   => sub { $str1 =~ /^\Q$str2/; },
  index   => sub { 0 == index $str1, $str2; },
  substr  => sub { $str2 eq substr $str1, 0, length $str2; },
  substr2 => sub { $str2 eq substr $str1, 0, $str2len; },
});
__END__
             Rate   regex  substr substr2   index
regex    671141/s      --    -59%    -65%    -71%
substr  1630435/s    143%      --    -16%    -30%
substr2 1935484/s    188%     19%      --    -17%
index   2343750/s    249%     44%     21%      --