#!/usr/bin/perl use XML::LibXML; print XML::LibXML->new->parse_html_string(join "", <>)->toStringHTML; [download]
In reply to HTML tidy, using XML::LibXML by merlyn