use XML::LibXML;

use warnings;
use strict;

my $copy = '';
my $lastnode = '';

my $file = (<DATA>); #UPDATE

my $d = XML::LibXML->new->parse_file(join "", $file);


&copy;
&paste;

$d->toFile('c:\test1.xml');



sub copy {
		for my $dead ($d->findnodes(q{/category/subcategory/product[product_id = "800.55.01"]})) 
		{
			#copy the node before it die
			$copy = $dead->cloneNode;
			
			#the node die
			$dead->unbindNode;

		}
}


sub paste {
		for my $paste ($d->findnodes(q{/category/subcategory[@name = "Grand Arabica"]})) 
		{
  
			my $curcopy = $copy;
  
			
			$lastnode = $paste->lastChild;
  
			

		    $paste->insertAfter($lastnode, $curcopy);
		}
}



__DATA__
  <category>
  		<subcategory name="Prestige">
			<comments><paragraph>Prestige is a very traditional French recipe: a blend of Robusta and Arabica beans. The Robusta is known for its strength and the Arabica for its delicate flavour. The Prestige is the ideal coffee for Espresso. The 500gr come in the re-usable Aroma Box especially designed to preserve the freshness and aroma of your coffee.</paragraph>
			</comments>
			<photo>images/prestige.jpg</photo>
			<product>Coffee
                <channel>D</channel>
				<channel>A</channel>
				<product_id>800.55.01</product_id>
				<brand>Legal</brand>
				<description>Legal Prestige</description>
				<conditionning unit="gr">250</conditionning>
				<packaging_qty>12</packaging_qty>
				<recipe>/recipes/coffee1.html</recipe>
			</product>
			<product>Coffee
				<channel>D</channel>
				<channel>A</channel>
				<product_id>801.55.01</product_id>
				<brand>Legal</brand>
				<description>Legal Prestige Boite Ar&#xF4;me</description>
				<conditionning unit="gr">500</conditionning>
				<packaging_qty>6</packaging_qty>
			</product>
		</subcategory>
		<subcategory name="Grand Arabica">
			<comments><paragraph>Experience the subtle voluptuousness of extraordinary Arabica coffee in your cup. Grand Arabica: incomparable pleasure in coffee.</paragraph></comments>
			<photo>images/arabica.jpg</photo>
			<product>Coffee
			    <channel>A</channel>
				<channel>D</channel>
				<channel>S</channel>
				<product_id>802.55.01</product_id>
				<brand>Legal</brand>
				<description>Grand Arabica</description>
				<conditionning unit="gr">250</conditionning>
				<packaging_qty>12</packaging_qty>
			</product>
		</subcategory>
</category>