#!/usr/bin/perl

use strict;
use warnings;
use HTML::TreeBuilder 5 -weak;

my $url
    = 'http://buyingguide.winemag.com/catalog/peju-1998-reserve-cabernet-sauvignon-napa-rutherford';

my $tree = HTML::TreeBuilder->new_from_url( $url );
$tree->parse_content( $url ); 
    
my $review_et = $tree->look_down('itemprop', 'reviewBody');

binmode STDOUT, ":encoding(UTF-8)";
print $review_et->as_text;
$tree->delete;