This is a design XZY document for Project
For this, I have the below Perl script:
my $dom = XML::LibXML->new->parse_file($file);
my $nodeset = $dom->find('/root/part/sect/header');
foreach my $node($nodeset -> get_nodelist)
{
$node -> string_value;
if ($node =~ m/design/i)
{
my $design= $node;
print $design;
}
}
####
This is a design XZY document for Project