use JSON::PP;
my $uri = decode_json($response)->{results}[0]{uri};