perl -E'
$a="THE FOOD IS DELICIOUS";
$srch="O";
push @i,index($a,$srch,$i[-1]+1) for $a=~/$srch/g;
$" = ",";
say "@i";
'

5,6,18