Select Code to Download

my %cases = (
  'one_large'  => sub { if($text=~/(stuff?)m0r3(?:[^:]*\.)?($big_strin
+g)/i){my $match="$1:$2"}},
...
'@strings    = ', scalar @strings,    " items\n\n";

cmpthese( 0, \%cases);

$text       = 4578 characters
$big_string = 210724 characters
...
many_small 1.05/s         --      -100%
one_large   630/s     60089%         --
   --