DB<151> $str=$str0
 => " bla0 \"ignore a1\" bla1 \"ignore a2\" bla2"

  DB<152> $str =~ s/("[^"]*?"|a)/ $1 eq "a" ? "A" : $1 /ge
 => 5

  DB<153> $str
 => " blA0 \"ignore a1\" blA1 \"ignore a2\" blA2"