#!/usr/bin/perl
use strict;
use warnings;
use HTML::TreeBuilder;
use Data::Dumper;
use HTML::Element;
my $html = qq~Test
Link~;
my $tree = HTML::TreeBuilder->new();
$tree->parse($html);
my @elements = $tree->find('a');
for my $link(@elements){
print $link->as_text(),"\n";
}