s/(".*?")/($x=$1)=~y: :_:, $x/ge)
^^^^^^^^^1
          ^^^^^^^2
                  ^^^^^^^3
                          ^^4
                             ^^^5