$ perl -Mojo -E 'say g("https://blockchain.info/address/1Q8VghUJkNeFnaKy553b9buUWKxFYL579G")->dom->find("#final_balance > font > span")->map("text")->each'