Hello Zeus, At 11:55 AM 1/29/2003 -0500, Zeus Odin wrote: >An even shorter version of yours is: >------------------------- >my @a; >while(<DATA>){ > next unless /=/ && chomp; > push @a, split /=/, $_, 2; >} >print "$_\n" for @a; >-------------------------
This is even shorter, eliminates all uses of variables, and slurps in the data all at once: #!/usr/bin/perl -w0 print join("\n", map({split(/=/,$_,2)} grep(/=/, split(/\n/, <DATA>)))); The only thing it does not do is use the regex. Is the regex a requirement? Regards, - Robert -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]