CPAN::Groonga

#!/usr/bin/env perl

use 5.14.2;
use warnings;

use JSON::XS;

my $json = JSON::XS->new->canonical->pretty->utf8;

say $json->encode($json->decode(join('',<>)));