#! /usr/bin/perl -w
use strict;

my @titles;
while (<DATA>)
{
  if (my $num = /TITLE/ .. /ENDTITLE/)
  {
     push @titles, $_ unless $num == 1 || $num =~ /E/;
  }
}

print for @titles;

__DATA__
STARTP
TITLE
some gibberish
some more gibberish
ENDTITLE
TITLE
some gibberish
some more gibberish
ENDTITLE
TITLE
some gibberish
some more gibberish
ENDTITLE
ENDP
STARTP
TITLE
some gibberish
some more gibberish
ENDTITLE
TITLE
some gibberish
some more gibberish
ENDTITLE
TITLE
some gibberish
some more gibberish
ENDTITLE
ENDP