Re: How to Modify Only Non-Quoted Words?

s { ([^"']*)?   # non quoted part
   ("[^"]*")?   # doublequoted
   ('[^']*')?   # singlequoted 
  }
  {
    my($x, $y, $z) = map {defined() ? $_ : ''} $1, $2, $3;
    $x =~ s/(?<!\S)(?=\S)/A/g;
    $x . $y . $z
  }xge;
[download]

Comment on Re: How to Modify Only Non-Quoted Words? Download Code

Replies are listed 'Best First'.
Re^2: How to Modify Only Non-Quoted Words? by Your Mother (Archbishop) on Aug 31, 2004 at 04:06 UTC
Don't know if it's relevant to the problem but both your and ikegami's solutions fail when contractions enter into the "word" list.	[reply]
Re^3: How to Modify Only Non-Quoted Words? by ikegami (Patriarch) on Aug 31, 2004 at 05:49 UTC
If you want to escape quotes oustide of quoted strings, change `( # $2 [^\s"']+ # Something to prefix. )` [download] to `( # $2 (?:[^\s"'\\]\|\\.)+ # Something to prefix. )` [download]	[reply] [d/l] [select]