> > > my @rows = map [split], split /\n/, $str;
> > > for (@rows) { $_->[2] =~ tr/%//d }
> > >
> >
> > Neat. You saved me 6 lines of code :)
> > Thank You !!
>
> Make sure its meaningful to you or someone else maintaining
> it. I would
> rather see 6 extra lines of code and have it mean something to me at a
> glance then to just write code that is short.
>
Thanks Paul and I agree with you. I do think Steve's code is still easy to
follow and with a comment or 2, should be very clear.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
