Select Code to Download

$ perl match
       Rate orig   lc
...
orig 1492/s   --  -8%
lc   1627/s   9%   --

use strict;
use Benchmark qw(cmpthese);
...
                lc   => sub { lc $string =~ /$pattern/  },
              }
         );