my @text = split /o/, $word;
print join qq{/n},@text;
__END__
Perl



s a th



ng I l



ke t
 d
.