"The wodchuck at the zo stod on the stoop";

##</code><code>##

my $str = "The wodchuck at the zo stod on the stoop";
$str =~ s/o/oo/i for 1..3;
print "$str\n";

##</code><code>##

The woooodchuck at the zo stod on the stoop

##</code><code>##

The woodchuck at the zoo stood on the stoop