my $url = 'https://blockchain.info/address/1Q8VghUJkNeFnaKy553b9buUWKxFYL579G';
  use LWP::Simple;
  my @lines = get $url;
  
  $string = "final_balance";
foreach $line (@lines) {
    if ($line =~ $string) { print "$line"; }
}