#!perl -w
use HTML::TreeBuilder;
use diagnostics;
use strict;
my $root = HTML::TreeBuilder->new;
$root->parse_file('sample_document.htm') || die $!;
my @paras = $root->find_by_tag_name('p');
foreach my $h (@paras) {
foreach my $item_r ($h->content_refs_list) {
next if ref $$item_r;
### proprietary JavaScript/HMTL inserted with substitution
}
} # end foreach
print $root->as_HTML;