sub extract_jsons {
	use JSON;
	my($key, $json_text) = @_;
	return("") unless ($key and $json_text);
	my($json_obj) = decode_json($json_text);
	my($s) = encode_json($json_obj->{$key});
	$s =~ s/\\"/"/g if ($s =~ s/^"(.*)"$/$1/); # "
	return($s);
}
