ahah you got me on that one.

I finally succeed: 
use strict; use warnings;
use JSON;

my $response = '{Id:"343410466704454908",Pseudo:Stan,Country:"PERL_REP
+UBLIC",CountryId:1,CanRecieveImg:"true",Localization:"01",Localizatio
+nId: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;

[download]
output :
{"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"}
Still there two things I don't like :

The regex need to be called twice because unquoted words between : and , (eg Stan or 22) don't match, maybe because the : is alderly used for the rule words between , and :

$1 replaced all the pattern
ex : $response =~s/[{:,](\w+)[:,]/"$1"/g;
"Id""343410466704454908""Pseudo"Stan
So I used three capturing ( )

It's quit lame but it works.. If someone have something better...

In reply to Re^4: JSON error '"' expected, at character offset 1 by odrevet
in thread JSON error '"' expected, at character offset 1 by odrevet

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.