> > 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.
My 2 cents.
PK
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
