Select Code to Download

s/(".*?")/($x=$1)=~y: :_:, $x/ge)

...
                           string
----------------------------------------------------------------------
  x/ge                     'x/ge'

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