for (my $pos = -1; -1 != ($pos = index $string, $sub, $pos+1); push @places, $pos) {
pop @places;
}
lehámoztam róla azt a réteget, ez így már majdnem olyan, mint amit turul16 írt, de mégsem jó egészen, szóval a @places tartalmát külön 1 print-tel kiíratom és akkor vagyok ugyanott.
________________________________________________________
"I do not fear computers. I fear the lack of them."
/ Isaac Asimov /