Jeff Pang <mailto:[EMAIL PROTECTED]> wrote:
: Thanks for Charles.That code can work well,but I still want
: to know how to do it with regex expression.
use strict;
use warnings;
local $/ = "\n\n";
while ( <DATA> ) {
chomp;
printf "%-5s% 15s\n", /(.+)\n(.+)/;
}
__END__
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
