print join q{o}, split /i/, $line;
print join q{o}, split /(i)/, $line;
__END__
Perl os a thong I loke to do.
Perl oios a thoiong I loioke to do.