use JSON::XS qw( decode_json );
my $data = decode_json($json);