my $tidy = HTML::Tidy::Document->new();
$tidy->Create();
$tidy->SetErrorFile('/dev/null');
$tidy->OptSetValue( $tidy->TidyBodyOnly, 1);
$tidy->ParseString($messy);
my $tidied = $tidy->SaveString();