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

while (<DATA>)
{
   print if (/^TITLE:/.../^\s*$/);
}

__DATA__
TITLE:
qasfd
asfdikyh6rf76
khlyouyih

TITLE:
oiqywrot6
09809g808
asdfafTITLE:

stuff stuff that doesn't matter
[asDFKJKLAFG]
ASDFKJAFKLJ TITLE:
  TITLE ASDFASFD
not a title paragraph  
TITLE:
98797
ABCD
EFG

__END__

#####  prints: #######
TITLE:
qasfd
asfdikyh6rf76
khlyouyih

TITLE:
oiqywrot6
09809g808
asdfafTITLE:

TITLE:
98797
ABCD
EFG