It's also possible to use nested substitutions (I've use single-quotes instead of double-quotes to avoid the WinNoyance® of escaping a bunch of "s): 
>perl -wMstrict -le
"for my $str (@ARGV) {
   print $str;
   $str =~ s{ (' [^']* ') }
            { (my $x = $1) =~ s{ [^'/] }{x}xmsg;  $x
            }xmsge;
   print $str;
   }
"
file='path/goes/here'  foo'a/b/c'bar  '///'  'a/b/c'
file1='aa/bb/cc',file2='/dd/'
file='path/goes/here'
file='xxxx/xxxx/xxxx'
foo'a/b/c'bar
foo'x/x/x'bar
'///'
'///'
'a/b/c'
'x/x/x'
file1='aa/bb/cc',file2='/dd/'
file1='xx/xx/xx',file2='/xx/'

[download]

In reply to Re: Selectively replacing characters inside a string by AnomalousMonk
in thread Selectively replacing characters inside a string by markkawika

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.