#!/usr/bin/perl

use warnings;
use strict;

use HTML::TreeBuilder;

my $t = HTML::TreeBuilder->new_from_file(q{html/monk.html})
  or die qq{cant build tree};

my $body  = $t->look_down(_tag => q{body});
my @PageSections = $body->look_down( _tag => q{div}, class => q{secTitle});

my $i;
for my $node (@PageSections){
  my $secTitle = $node->as_text;
  print qq{>>>>> $secTitle\n};
  my @right = $node->right;
  for my $ele (@right){
    if (ref $ele){
      last if(
        $ele->tag eq q{div} 
          and 
        $ele->attr(q{class}) 
          and 
        $ele->attr(q{class}) eq q{secTitle}
      );
      $ele->dump;
    }
    else{
      print $ele, qq{\n};
    }
  }
  print q{-} x 20, qq{\n};
}