http://www.perlmonks.org?node_id=205367


in reply to How to make only two of three substitutions?

    $str =~ s#/##   for  1,2; or     s#(/\s*){2}\z## for example. But these assume you slurp the entire file into a string. Perhaps you are doing a perl -pe kind of thing...     perl -i.old -pe '$sawSlash++ && s#/## if m#/#' (updated again. Thanks, blakem. I added "$str =~" to match what I was thinking and what I had tested.)

        - tye (saaa x y z aziez,s $e $s deedeydi,t $ex,print)

Replies are listed 'Best First'.
Re: (tye)Re: How to make only two of three substitutions?
by blakem (Monsignor) on Oct 15, 2002 at 20:16 UTC
    s#/## for 1,2;
    That won't work. $_ gets aliased in the for loop to the constants '1' and '2'. You could get away with:
    for my $i (1,2) { s#/## }
    Though, its not real pretty...

    -Blake