stuff stuff 2 ##

##




altered stuff
altered stuff 2


##

##

#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;
open my $outfh, '>', "out.xml" or die ">out.xml:$!";
my $p = XML::Twig->new(
    twig_print_outside_roots => $outfh,
    twig_roots => {
        record => sub {
            $_->set_text("altered ".$_->text);
            shift->flush
        }
    },
    empty_tags => 'html',
    keep_encoding => 1,
    keep_spaces => 1,
);
$p->parsefile("in.xml");
print "DONE\n";

##

##




altered stuff # the extra  is the problem.
altered stuff 2