How do I split a file into separate sections?

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I have a text file that is composed of sections each with the same headers; e.g.;

TI: some lines
AU: some lines
JN: some lines
[download]

The section is then repeated for a number of "hits" What I want to do is grab each section and place it into a hash with the section headers as keys. any ideas? P.S. I'd rather not use the split function

Originally posted as a Categorized Question.

Back to Seekers of Perl Wisdom