$perl_scalar = decode_json($json_text_string);