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

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

cmpthese( 0, \%cases);

##</code><code>##

$text       = 4578 characters
$big_string = 210724 characters
@strings    = 10634 items

             Rate many_small  one_large
many_small 1.05/s         --      -100%
one_large   630/s     60089%         --
   --