>perl -e "my $a=q|THE FOOD IS DELICIOUS|;for(my $x=-1;($x=index($a,qq|O|,$x+1))>=0;){print qq|$x\n|}"
5
6
18