sub html_trim {
my $elem = shift;
for my $itemref ($elem->content_refs_list) {
if ( ref $$itemref )
{ html_trim($$itemref) } # remove this for non-recursive
else { $$itemref =~ s/^\s+|\s+$//g }
}
}
for my $elem ($xhtml->findnodes('//div/ul/li')) {
html_trim($elem)
}