use strict;
use warnings;
use HTML::TreeBuilder;
my $html = '
Blah
hithere
Blah
';
my $element_root = HTML::TreeBuilder->new_from_content($html);
$element_root->objectify_text;
$element_root->dump;
print "\n";
my $target;
$target = ' ';
$target = 'hi';
my @text = $element_root->look_down('_tag' => '~text');
for my $text_node (@text) {
my $tmp = $text_node->attr('text');
warn $tmp;
if ($tmp =~ m!$target!) {
warn 'here';
$tmp =~ s!$target!!g;
$text_node->attr(text => $tmp);
}
}
print "\n";
$element_root->dump;