use warnings;
use strict;
use utf8;
use LWP::UserAgent;
use HTML::TreeBuilder;

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

my $browser = LWP::UserAgent->new;

my $re = $browser->get($url);

if ( $re->is_success ) {
    my $tree = HTML::TreeBuilder->new;
    $tree->parse( $re->decoded_content );
    $tree->eof();
    binmode STDOUT, ":encoding(UTF-8)";
    my $review_et = $tree->look_down( 'itemprop', 'reviewBody' );
    my $str = $review_et->as_text;

    #print $str,$/;  # this as works
    print $review_et->as_HTML;
    $tree->delete;
}
else {
    die $re->status_line();
}