http://www.perlmonks.org?node_id=981141


in reply to Split words

Another way to do it: join("\n",split(/(monks)/,$string));
Sorry if my advice was wrong.

In Section Seekers of Perl Wisdom