sub slurpie {
    local $/ = '';
    my $n = 1;
    while (<DATA>) {
        printf "*** paragraph %d ***\n", $n++;
        print;
    }
}
slurpie();
__END__
*** paragraph 1 ***
hi
hi
234
hi

*** paragraph 2 ***
hoi
sdfsdfsdf23423
hi

*** paragraph 3 ***
hi
hi
1234

*** paragraph 4 ***
1