DB<100> $txt=q( This is "an example", but "`this not"'. )
 => " This is \"an example\", but \"`this not\"'. "
 
  DB<101> $txt =~ s/"(?![`'])/'/g
 => 2
 
  DB<102> $txt
 => " This is 'an example', but \"`this not\"'. "