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";
}