DB<229> $_=$str0
 => " bla0 \"ignore a1\" bla1 \"ignore a2\" bla2"

  DB<230> s/("[^"]*")|a/ $1 or 'A' /ge
 => 5

  DB<231> $_
 => " blA0 \"ignore a1\" blA1 \"ignore a2\" blA2"