Select Code to Download

  my @o;
  my $o = -1;
  push @o, $o while ($o = index($s, 'a', $o+1)) > -1;

use strict;
use warnings;
...
wregex   204/s       --     -37%     -39%
windex   324/s      59%       --      -4%
windex_1 336/s      65%       4%       --