Re: Printing text between two blank lines

[obdulio santana]

I offer you, a tiny version ,

@ll=split /^\s*\n/m,join '',<DATA>;
print for @ll[1 .. $#ll - 1] ;


__END__
pri
dfsdfsa
dfasdf
asdf

first

second

last

ass
sad
sas
d


Maybe this helps somebody.
Thaks Perl's folks.