Select Code to Download

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

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

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

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

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

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