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