#!/usr/bin/perl
use HTML::TreeBuilder::XPath;
use HTML::Element;
use warnings;
use strict;
my $xhtml = HTML::TreeBuilder::XPath->new;
$xhtml->implicit_tags(1);
$xhtml->no_space_compacting(1);
$xhtml->parse_file(\*DATA)
or die("Could not parse file handle for 'DATA' : $!\n");
for my $item ($xhtml->findnodes('//div/ul/li')) {
my $li = $item->as_XML;
$li =~ s/^\s+//;
# ... omitting rest of the stuff which happens to $li ...
my $new = HTML::Element->new('~literal', 'text' => $li);
$item->replace_with($new);
}
print $xhtml->as_XML_indented;
$xhtml->delete;
exit(0);
__DATA__
Foo Bar
Foo Bar
- foo foo foo
foo bar foo
foo foo foo foo
Bar Foo
- foo foo foo
foo bar foo
foo foo foo foo