perl Tips

Yさんのデバッグの仕方
191 =pod
192 $json =~ s/\\"/"/g;
193 warn '+++++';
194 warn $json;
195 =cut