Help for this page
#!perl ... '/i' => sub { () = $s =~ m{ (?i) [aeiou]{2} }xms +g }, } ); __END__
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% --