obdulio santana wrote:
I offer you, a tiny version ,@ll=split /^\s*\n/m,join '',<DATA>; print for @ll[1 .. $#ll - 1] ;
<example data snipped>That code does not meet the OP's specification. Please consider a file whose data looks like this:
pri dfsdfsa first asdf asdf asdf second last ass sad -- Gunnar Hjalmarsson Email: http://www.gunnar.cc/cgi-bin/contact.pl -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
