DB<148> $_=$s3;  s/ ( \\. | (['"]) (?: \\.|[^\2] )* \2 ) | o /  $1 or 'O' /xge ; 
 => 6

  DB<149> p $_
 "no" yO \' yO ' no \\\' no ' yO