my @text = split /o/, $word;
print join qq{o},@text;
__END__
Perl oooos a thoooong I looooke to do.