Win8 Strawberry 5.8.9.5 (32)  Mon 10/11/2021 13:52:47
C:\@Work\Perl\monks
>perl -wMstrict -le "my $f = 'foo'; print pos $f while $f =~ m{ ( o? )* }gx;"
0
3
3