my $json = qq/{\n\t"balance": 999000000\n}\n/;
my $data = decode_json($json);
my $balance = $data->{balance};
print $balance, "\n";  # prints "999000000"