Select Code to Download

my $t = XML::Twig->new(
    twig_roots => {'nitf/body/body.head/hedline/hl1' => \&fix_hl1,
...
        twig_print_outside_roots => 1,
        keep_encoding => 1,
);

sub fixup {
    my ($tree, $elem) = @_;
...

    $elem->print;
}