use strict; use warnings;
use JSON;

my $response = '{Id:"343410466704454908",Pseudo:Stan,Country:"PERL_REPUBLIC",CountryId:1,CanRecieveImg:"true",Localization:"01",LocalizationId:859,Picto:"fille.gif",PictoId:0,Type:0,Sex:1,Comment:"biz",Age:22,Media:0,IsAd:false}';


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

print $response;