#!/usr/bin/env perl
use 5.012;
use warnings;
use JSON;
use re '/msx';

my %opt;
my $jsonify = JSON->new->utf8->canonical;
$jsonify->pretty if $opt{pretty};

my $data = do "./$ARGV[0]" or die $@;
print $jsonify->encode($data)
	=~ s{\[ \K\n ([^][]+) (?=\])}{$1 =~ s/(?:\A|\n) \s*//gr}reg;