Help for this page

Select Code to Download

Select or download this

#!perl

...
   '/i'       => sub { () =    $s  =~ m{ (?i) [aeiou]{2}          }xms
+g },
} );
__END__

Select or download this

Perl version: v5.12.0
Length of string: 140000
...
lc       50.8/s       0%       --      -1%      -3%
[Aa][Aa] 51.5/s       1%       1%       --      -2%
/i       52.5/s       4%       3%       2%       --