print 
'$text       = ', length $text,       " characters\n",
'$big_string = ', length $big_string, " characters\n", 
'@strings    = ', scalar @strings,    " items\n\n";

my $big_regexp = Regexp::Optimizer->new()->optimize($bit_string);
my @small_regexps = map { qr/$_/i } @strings;

my %cases = (
  'one_large'  => sub { if($text=~/(stuff?)m0r3(?:[^:]*\.)?($big_regexp)/i){my $match="$1:$2"}},
  'many_small' => sub { for(@small_regexps){ if($text=~/(stuff?)m0r3(?:[^:]*\.)?($_)/i){my $match="$1:$2"}}},
);

cmpthese( 0, \%cases);