#!/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 " . $elt->attr ('href') . "\n\n";
}


##</code><code>##

A http://www.nowhere.com/?action=a1&param=p1

##</code><code>##

A http://www.nowhere.com/?action=a1&amp;param=p1