combined with the solution I proposed, that would be even more short and simple:

$tree->parse_content (<DATA>);
$_->attr ("addr", $_->address) for $tree->look_down (_tag => qr{.});
[download]

I never knew about the address property. Thanks, very useful