Select Code to Download

use warnings; use 5.014;
our $doc = q{<?xml version="1.0" encoding="iso-8859-2" ?>
...
    </verse>
};

our %xmlopt = (
    keep_spaces => 1, comments => "drop", 
...
    $tw->parse($doc);
}

=begin output

...

=cut

if (1) {
    my $tw = XML::Twig->new(%xmlopt);
...
    }
}

=begin output

...

=cut

if (1) {
    my $line_handler = sub {
...
    $tw->parse($doc);
}

=begin output

...

=cut