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

##</code><code>##

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