#!/usr/bin/perl use warnings; use strict; use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Sortkeys = 1; use HTML::TreeBuilder; my $content = do{local $/;}; my $root = HTML::TreeBuilder->new_from_content($content); print $root->tag, qq{\n}; # prints: html print $root->{_decl}{_tag}, qq{\n}; # prints: ~declaration print $root->{_decl}{text}, qq{\n}; # prints: DOCTYPE html PUBLIC "XHTML" my $dec = $root->look_down( _tag => q{~declaration}, ) or die qq{declaration not found\n}; $dec->splice_content( 0, 1, q{}, ) or die qq{splice failed\n}; print $root->as_HTML; __DATA__ declaration

declaration