in reply to finding the position of a particular character in a string

>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

[download]

            "XML is like violence: if it doesn't solve your problem, use more."

In Section Seekers of Perl Wisdom