d1|d2|Nest1->Nest2->d5->X|Nest1->Nest2->d5->Y|Nest1->Nest2->d6->X|Nest1->Nest2->d6->Y|Nest1->Nest2->Nest3->Nest4->d7->d9->d10->text.

##</code><code>##

<DatatoParse>
<elt>
 <d1>TV show 1</d1>
 <d2>Heroes</d2>
 <d3>4</d3>
 <d4/>
<Nest1>
<elt>
 <Junk1>FULL</Junk1>
 <Junk2>Page 65</Junk2>
<Nest2>
<elt>
<d5>
 <X>-2</X>
 <Y>-3</Y>
 </d5>
<d6>
 <X>5</X>
 <Y>8</Y>
 </d6>
<Nest3>
<Nest4>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Nest4>
<Junk>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Junk>
 </Nest3>
 </elt>
<elt>
<d5>
 <X>-2</X>
 <Y>-3</Y>
 </d5>
<d6>
 <X>5</X>
 <Y>8</Y>
 </d6>
<Nest3>
<Nest4>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Nest4>
<Junk>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Junk>
 </Nest3>
 </elt>
<elt>
<d5>
 <X>-2</X>
 <Y>-3</Y>
 </d5>
<d6>
 <X>5</X>
 <Y>8</Y>
 </d6>
<Nest3>
<Nest4>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Nest4>
<Junk>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Junk>
 </Nest3>
 </elt>
<elt>
<d5>
 <X>-2</X>
 <Y>-3</Y>
 </d5>
<d6>
 <X>5</X>
 <Y>8</Y>
 </d6>
<Nest3>
<Nest4>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Nest4>
<Junk>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Junk>
 </Nest3>
 </elt>
 </Nest2>
 </elt>
 </Nest1>
<notrequired1>
<elt>
 <Junk1>FULL</Junk1>
 <Junk2>Page 65</Junk2>
<Nest2>
<elt>
<d5>
 <X>-2</X>
 <Y>-3</Y>
 </d5>
<d6>
 <X>5</X>
 <Y>8</Y>
 </d6>
<Nest3>
<Nest4>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Nest4>
<Junk>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Junk>
 </Nest3>
 </elt>
<elt>
<d5>
 <X>-2</X>
 <Y>-3</Y>
 </d5>
<d6>
 <X>5</X>
 <Y>8</Y>
 </d6>
<Nest3>
<Nest4>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Nest4>
<Junk>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Junk>
 </Nest3>
 </elt>
<elt>
<d5>
 <X>-2</X>
 <Y>-3</Y>
 </d5>
<d6>
 <X>5</X>
 <Y>8</Y>
 </d6>
<Nest3>
<Nest4>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Nest4>
<Junk>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Junk>
 </Nest3>
 </elt>
<elt>
<d5>
 <X>-2</X>
 <Y>-3</Y>
 </d5>
<d6>
 <X>5</X>
 <Y>8</Y>
 </d6>
<Nest3>
<Nest4>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Nest4>
<Junk>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Junk>
 </Nest3>
 </elt>
 </Nest2>
 </elt>
 </notrequired1>
 </elt>
<elt>
 <d1>TV show 2</d1>
 <d2>Prison Break</d2>
 <d3>8</d3>
 <d4/>
<Nest1>
<elt>
 <Junk1>FULL</Junk1>
 <Junk2>Page 65</Junk2>
<Nest2>
<elt>
<d5>
 <X>-2</X>
 <Y>-3</Y>
 </d5>
<d6>
 <X>5</X>
 <Y>8</Y>
 </d6>
<Nest3>
<Nest4>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Nest4>
<Junk>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Junk>
 </Nest3>
 </elt>
<elt>
<d5>
 <X>-2</X>
 <Y>-3</Y>
 </d5>
<d6>
 <X>5</X>
 <Y>8</Y>
 </d6>
<Nest3>
<Nest4>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Nest4>
<Junk>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Junk>
 </Nest3>
 </elt>
 </Nest2>
 </elt>
 </Nest1>
<notrequired1>
<elt>
 <Junk1>FULL</Junk1>
 <Junk2>Page 65</Junk2>
<Nest2>
<elt>
<d5>
 <X>-2</X>
 <Y>-3</Y>
 </d5>
<d6>
 <X>5</X>
 <Y>8</Y>
 </d6>
<Nest3>
<Nest4>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Nest4>
<Junk>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Junk>
 </Nest3>
 </elt>
<elt>
<d5>
 <X>-2</X>
 <Y>-3</Y>
 </d5>
<d6>
 <X>5</X>
 <Y>8</Y>
 </d6>
<Nest3>
<Nest4>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Nest4>
<Junk>
<d7>
<d9>
<d10>
 <d11>yipppeee</d11>
 </d10>
 </d9>
 </d7>
 </Junk>
 </Nest3>
 </elt>
 </Nest2>
 </elt>
 </notrequired1>
 </elt>
 </DatatoParse>

##</code><code>##

use warnings;
use XML::Twig;
use XML::Simple;


$localfile= "Test_1.xml";
my $field = "Nest1";
open my $fout1, '>', "testx.csv" or die "Could not open file!";	
$twig = XML::Twig->new(
					twig_roots    => { 
								$field => 1,
								'd1' => 1,
								'd2'=> 1,
								},
					twig_handlers => {
								'DatatoParse' => \&node,
								'DatatoParse//*' => \&node1
								}
						);
$twig->parsefile($localfile);




sub node {
		my($twig, $el) = @_;
		$twig->purge;     
		}    
		               
sub node1{
		    print  $fout1 "\n", if ($_->tag eq "d1");
		    print  $fout1 $_->text, ",", unless ($_->has_children('#ELT'));
		    print  $fout1 "\n", if ($_->tag eq "elt");
		}