use 5.010;
use strict;
use warnings;

use XML::LibXML 1.70;
use Text::Trim 'trim';

my $xml = XML::LibXML->load_xml(location => 'C:\Users\Desktop\derived_tif_cd.XML');

foreach my $query ($xml->findnodes('//queries/query'))
{
	# Join together the content within the <query> element
	# but filter out child elements. Just want text.
	my $sql = join q(),
		grep { $_->isa('XML::LibXML::Text') }
		$query->childNodes;
		
	say trim($sql);
}