#!/pro/bin/perl use strict; use warnings; use HTML::TreeBuilder; my $tree = HTML::TreeBuilder->new; my @l; $tree->parse_content (); foreach my $e ($tree->look_down (_tag => qr{.})) { push @l, -1; splice @l, 1 + $e->depth; $l[-1]++; $e->attr ("addr", join ".", @l); } print $tree->as_HTML (undef, " ", {}); __END__ Testing SNMP addr

Hello world

Some content