#!/usr/bin/perl

use warnings;
use strict;
use lib q{/www/lib};
use SW::Debug;

use HTML::TreeBuilder;

my $content = do{local $/;<DATA>};
my $t = HTML::TreeBuilder->new_from_content($content)
  or die qq{cant build tree};

my $body  = $t->look_down(_tag => q{body});
my $p     = $t->look_down(_tag => q{p});

my @right = $p->right;
print scalar @right, qq{ siblings\n};

for my $ele (@right){
  $ele->dump;
  print q{-} x 20, qq{\n};
}

__DATA__
<p id = "1">one</p>
<p id = "2">two</p>
<p id = "3">three</p>