our $store;

$ua->add_handler( response_data => sub {
                my($response, $ua, $h, $data) = @_;
                $store.=$data;

                eval {  
                        if ($store =~ s/^\s*({\s*(?:"[^"]*"|(?>[^"{}]*)|(?1))+\s*})\s*//){
                                my $result = $json->decode( $1 );
                                print Dumper $result;

                        };
                };
                if ($@){ print STDERR "Error: $@\n"; die };
                1;
        } );