$parser = XML::LibXML->new();
   $doc = $parser->parse_file( $xmlfilename );

##</code><code>##

    $p = XML:LibXML->new();
    local $/='</order>';
    open (FH,'<:utf8',$filename) or die $!;
    while (my $order = <FH>) {
        $order=~s/^.*?<order>/<order>/gs;
        my $xml = <<XML;
<?xml version="1.0" encoding="UTF-8"?>
<orders>
$order
</orders>
XML

         my $doc = eval {$parser->parse_string($xml)};
         if ($@) {
              warn ("error : $@");
              next;
         }
         process_orders($doc);
     }