$a="THE FOOD IS DELICIOUS";;
$p=0; @p=(); 

push @p, $p-1 while $p = 1+index $a, 'O', $p; 

print @p;;
5 6 18