#!/usr/bin/perl
use Modern::Perl;
use HTML::TreeBuilder::XPath;
use Data::Dumper;
local $/;
my $html = ;
my $tree = HTML::TreeBuilder::XPath->new_from_content($html);
my @values = $tree->findvalues('/html/body/p/a');
say Dumper(@values);
__DATA__
Link Text 1
Link Text 2
Link Text 3
Link Text 4