$a="THE FOOD IS DELICIOUS";;
@p=(); 
push @p, $-[0] while $a =~ m[O]g;;

print @p;;
5 6 18