my $word = q{Perl is a thing I like to do.};
$word =~ s/i/oooo/;
__END__
Perl oooos a thing I like to do.