#!/usr/bin/perl
use strict;
use warnings;

use Benchmark 'cmpthese';

local $" = '|';
my $target      = join '', map chr(97 + rand 26), 1 .. 100000;
my @patterns    = map {join '', map chr(97 + rand 26), 1 .. 5 } 1 .. 100;
my @res         = map qr/$_/, @patterns;
my $whole_pat   = "@patterns";
my $whole_re    = qr/@patterns/;

cmpthese(-5, {
    'inline'        => sub {$target =~ /@patterns/},
    'inline-o'      => sub {$target =~ /@patterns/o},
    'grep_str'      => sub {return 1 if grep $target =~ $_, @patterns},
    'grep_RE'       => sub {return 1 if grep $target =~ $_, @res},
    'whole_pat'     => sub {$target =~ /$whole_pat/},
    'whole_pat-o'   => sub {$target =~ /$whole_pat/o},
    'whole_re'      => sub {$target =~ $whole_re},
});