# read in paragraph mode
local $/ = '';
while (<DATA>) {
    print "This is paragraph $.: $_";
}
__DATA__
Now is the time
for all good men
to come to the aid 
of the party.

The quick brown fox
jumps over the lazy dog.