use HTML::TreeBuilder;
use strict;  # examples aren't exempt!!!

my $parser = new HTML::TreeBuilder;
$parser->parse($html_code_from_elsewhere);

my @links = $parser->look_down('_tag' => 'a');
foreach my $link (@links) {
   my $href = $link->attr('href');
   my $descr = $link->as_text();  
}
$parser->delete();