Help for this page

Select Code to Download


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