$perl_scalar = JSON->new->utf8->decode($json_text)