sub process_body_hl2 {
    my ($t, $hl2) = @_;
    my $para = crunch($hl2->text);
    $body .= "<p><b>$para</b></p>";
}