$ perl -wE '$f = "foo"; say pos $f while $f =~ m{ ( o? )* }gx;'
0
3
3