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)
}