Select Code to Download

         Rate   wmap  count  wgrep wregex windex
wmap   5.42/s     --   -12%   -60%   -97%   -98%
...
wgrep  13.5/s   148%   120%     --   -93%   -96%
wregex  198/s  3558%  3132%  1372%     --   -37%
windex  317/s  5741%  5062%  2251%    60%     --

use strict;
use warnings;
...
  my @o = map { $count++; /a/ ? $count - 1 : () } split //, $s;
  return;
}