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