my @fragments = grep length, split /(\b{wb}.+?\b{wb}|\n+)/, $book;