Select Code to Download

$response =~s/([{:,])(\w+)(?=[:,}])/$1"$2"/g;

$response =~s/[{:,]\K(\w+)(?=[:,}])/"$1"/g;