my $line = q{Perl is a thiiing I like to do.}; print join q{ooo}, split /i{2,}/, $line; __END__ Perl is a thooong I like to do.