$word =~ s/i/oooo/g;
__END__
Perl oooos a thoooong I looooke to do.