$perl_scalar = decode_json $json_text