use JSON qw( decode_json );
my $json_array = decode_json ( do { local $/; <DATA> } );

__DATA__
Json text

##</code><code>##

use JSON qw( decode_json );
my $json_array = decode_json ( 'https://someurl?sss&output=json' );