my @poss;
my $pos = -1;
while (($pos = index($string, $char, $pos + 1)) != -1) {
  push @poss, $pos;
}
[download]