Re^2: positions of all occurrences of a substring in a string

[Anonymous Monk]

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