Re: splitting up a long text at regular intervals

[GrandFather]

Something like this?

use warnings;
use strict;

my $linesSinceBreak = 0;

while (<DATA>)
  {
  chomp;
  $linesSinceBreak = 0, print "\n<<BreakHere\n" if ++$linesSinceBreak 
+>= 15 && ! length $_;
  print "$_\n";
  }

__DATA__
I have the text of a play which I was to put into
a presentation. So I need to
split it up every 15 lines or so.

I had already stated to do this in vim by recording
a macro where I would
insert some special text say xñx (which I can then
parse upon) after I'd moved
down around 15 lines.

Can this be done in perl (more automatically I guess)?
Also does it complicate
things to not want to introduce the parsing marker
when the 15 line account
occurs in the middle of a paragraph?

Sorry for not having a good grasp of the parsing lingo
here, but hopefully
you get what I want to do.

I have the text of a play which I was to put into a
presentation. So I need to
split it up every 15 lines or so.

I had already stated to do this in vim by recording
a macro where I would
insert some special text say xñx (which I can then
parse upon) after I'd moved
down around 15 lines.

Can this be done in perl (more automatically I guess)?
Also does it complicate
things to not want to introduce the parsing marker when
the 15 line account
occurs in the middle of a paragraph?

Sorry for not having a good grasp of the parsing
lingo here, but hopefully
you get what I want to do.

Prints:

I have the text of a play which I was to put into
a presentation. So I need to
split it up every 15 lines or so.

I had already stated to do this in vim by recording
a macro where I would
insert some special text say xñx (which I can then
parse upon) after I'd moved
down around 15 lines.

Can this be done in perl (more automatically I guess)?
Also does it complicate
things to not want to introduce the parsing marker
when the 15 line account
occurs in the middle of a paragraph?

<<BreakHere

Sorry for not having a good grasp of the parsing lingo
here, but hopefully
you get what I want to do.

I have the text of a play which I was to put into a
presentation. So I need to
split it up every 15 lines or so.

I had already stated to do this in vim by recording
a macro where I would
insert some special text say xñx (which I can then
parse upon) after I'd moved
down around 15 lines.

Can this be done in perl (more automatically I guess)?
Also does it complicate
things to not want to introduce the parsing marker when
the 15 line account
occurs in the middle of a paragraph?

<<BreakHere

Sorry for not having a good grasp of the parsing
lingo here, but hopefully
you get what I want to do.