Select Code to Download

#!/usr/bin/perl

...
update table set field = null where id = '$out{this}{that}[0]'
delete from table where value = '$constant'
select something from somewhere where status='$testsub'

normally, $testsub returns: this is foobar

...
update table set field = null where id = '678'
delete from table where value = 'fixed'
select something from somewhere where status='CODE(0x7ff80903f0e8)'

    s/(?<=')(\$[^']+)/$1/ee;