#!/usr/bin/perl use XML::LibXML; print XML::LibXML->new->parse_html_string(join "", <>)->toStringHTML;