use strict;
use warnings;

my @strings = qw/ one two three four /;

my $counter = 1;
for ( @strings ) {
  $counter += s/o/O$counter/; # only add one if s/// is successful
}
$counter--;
print "$counter replacements\n";
print "@strings\n";