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