my $twig = new XML::Twig(
                TwigHandlers => {
                    'byline' => \&byline,
                    'body.head/hedline' => \&hedline,
                    'body.content/p' => \&process_p,
                    'body.content/hl2' => \&process_body_hl2,
                    'body.content/block/p' => \&process_p,
                    'body.content/block/hl2' => \&process_body_hl2,
                    'body.content/table' => \&process_table,
etc. etc.

##</code><code>##

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

##</code><code>##

    <body.content>
      <hl2 style="section_head">SECTION HEAD</hl2>
      <hl2 style="subhead">subhead</hl2>
      <p/>

##</code><code>##

<body.content>
<p>SECTION HEAD</p><p>subhead</p>

##</code><code>##

 <p/>
 <hl2 style="subhead">2nd subhead</hl2>

##</code><code>##

<p><b>2nd subhead</b></p><p>