#! perl
use strict;
use warnings;
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);
my @quotes;
 
for ($tree->look_down(_tag => 'p'))
{
    if ((my $t = $_->as_text) =~ m{ ^ \d+ \. \s+ }x)
    {
        $t =~ s{ \x{2019}  }{'}gx;
        $t =~ s{ \xA0      }{ }gx;
        $t =~ s{ \x{2013} }{--}gx;
        push @quotes, $t;
    }
}

print "$_\n" for @quotes;