On 2007/04/04, at 18:12, Randal L. Schwartz wrote:
"Igor" == Igor Sutton Lopes <[EMAIL PROTECTED]> writes:Igor> my $str = join( " ", map { s/\B(\w+)/\L\1/; $_ } split( / \s+/, $_ ) );It's bad style to modify $_ in a map, because that also modifies the incomingdata. The simplest workaround is adding local: @out = map { local $_ = $_; s/.../.../; $_ } @in
Thanks pointing that. -- Igor Sutton [EMAIL PROTECTED]
PGP.sig
Description: This is a digitally signed message part