#!/usr/bin/perl use strict; use warnings; use Benchmark qw(cmpthese); my $string = "[end.message]"; cmpthese(10000000, { INDEX => sub { index( $string, 'message', 0) >=0 }, REGEX => sub { $string =~ /message/ }, });