One Five Seven ##

##


*/ console.log(' Six '); /*

]]>*/
Eight
]]>

##

##

use Mojo::DOM;
my $links = Mojo::DOM->new($html)->find('a[href]');
for my $link (@$links) {
	( my $txt_trim = $link->all_text ) =~ s/^\s+|\s+$//g;
	print $link->{href}, "\t", $txt_trim, "\n";
}

##

##

use HTML::TreeBuilder::XPath;
my $p = HTML::TreeBuilder::XPath->new;
$p->marked_sections(1);
$p->xml_mode(1); # DEPENDING ON INPUT
my @links = $p->parse($html)->findnodes('//a[@href]');
for my $link (@links) {
	print $link->attr('href'), "\t", $link->as_text_trimmed, "\n";
}

##

##

use HTML::LinkExtor;
my $p = HTML::LinkExtor->new;
$p->marked_sections(1);
$p->xml_mode(1); # DEPENDING ON INPUT
my @links = $p->parse($html)->links;
for my $link (@links) {
	my ($tag, %attrs) = @$link;
	print $attrs{href}, "\n";
}