Select Code to Download

use warnings;
use strict;
...
  $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
...
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
...
Sorry for not having a good grasp of the parsing
lingo here, but hopefully
you get what I want to do.