use strict;
use warnings;

use JSON;
use Data::Dumper;

my $j = JSON->new;
my $structure = $j->decode( do { local $/ = undef; <DATA> } );
print Dumper $structure;

__DATA__
JSON here.....