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

##</code><code>##

my $tidied = html_tidy($messy, 'TidyBodyOnly' => 1)