> my @rows = map [split], split /\n/, $str;
> for (@rows) { $_->[2] =~ tr/%//d }
> Neat. You saved me 6 lines of code :) Thank You !! -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
