#!/usr/bin/perl

use warnings;
use strict;

use HTML::TreeBuilder;

my $html = <<'HTML';
<a href="http://www.nowhere.com/?action=a1&amp;param=p1">Some text</a>
HTML

my $tree = HTML::TreeBuilder->new_from_content( $html );

for my $elt ($tree->look_down ('_tag', 'a')) {
    print "\nA " . HTML::Entities::encode($elt->attr ('href')) . "\n\n";
}