#! /usr/bin/perl
use warnings;
use strict;
use 5.010;
use open ':std', OUT => ':utf8';
use HTML::TreeBuilder 5 -weak;

my $site = 'http://motivationgrid.com/50-inspirational-quotes-to-live-by/';
my $tree = HTML::TreeBuilder->new_from_url($site);
 
  foreach my $e ($tree->look_down(_tag => 'p')) {
    say $e->as_text;
  }