in reply to Re^6: Splitting multiline string into words, the stuff between words, and newlines
in thread Splitting multiline string into words, the stuff between words, and newlines

This seems to work too: 
my @fragments = $book =~ /\G(?:[^\n\w]+?\b{wb})+|.+?\b{wb}/sg;

[download]
  • Comment on Re^7: Splitting multiline string into words, the stuff between words, and newlines
  • Download Code

In Section Seekers of Perl Wisdom