sub index_a {
  my( $txt, $search ) = @_;
  my @ret;
  my $ind = 0;
  my $cur = 0;

  while( ($cur = index( $txt, $search, $ind )) != -1 ) {
    push @ret, $cur;
    $ind = $cur + 1;
  }

  return @ret;
}