use strict;
use warnings;
use HTML::TreeBuilder;
my $data = do {local $/ = ""; };
my $tree = HTML::TreeBuilder->new;
$tree->store_comments(1);
$tree->store_declarations(1);
$tree->parse ($data);
$tree->eof ();
print $tree->as_HTML(undef, ' ');
__DATA__
####
####
my @prefix = @{$tree->{_content}}[2..3];
@{$tree->{_content}} = @{$tree->{_content}}[0..1];
print $prefix[0]->as_HTML(undef, ' ');
print $prefix[1]->as_HTML(undef, ' ');