Select Code to Download

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