#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.019005;
use autodie;

use LWP::Simple;
use JSON::XS;
use feature 'postderef';
no warnings 'experimental::postderef';

binmode *STDOUT, ':utf8';

my $json = get('http://c.hatena.com/s/bt847uolrcm3/nearby.json');
my $dat = decode_json($json);

for ($dat->{items}->@*) {
    say join(', ', $_->@{qw(spot_name lat lon)});
}

It's useful.