#!/usr/bin/perl  -w --  
use XML::Twig;


my $twig = XML::Twig->new(
    twig_roots => {
        'item' => sub {
            XML::Twig::Elt->new(
                year => '',
            )->paste(
                last_child => $_[-1],
            );
            $_[-1]->print;
            print $/;
        }
    },
);


my $xml =<<XML;
<item><name>Donald</name><title>I Title</title></item> 
<item><name>James</name><title>II Title</title></item>
XML

$twig->parse('<junk>'.$xml.'</junk>'); # junk cause $xml ain't really xml