my $word = q{thing};
$word =~ tr/i/oooo/;
__END__
thong