The "kitchen sink" module for manipulating XML is XML::Twig.

A starting point using XML::Twig to solve you problem may be:

use strict;
use warnings;
use XML::Twig;

my $xml = <<XML;
<xs:complexType name="semt.002.001.01">
<xs:sequence>
<xs:element name="PrvsRef" type="AdditionalReference2" minOccurs="0" m
+axOccurs="unbounded"/>
<xs:element name="RltdRef" type="AdditionalReference2" minOccurs="0" m
+axOccurs="unbounded"/>
<xs:element name="MsgPgntn" type="Pagination"/>
<xs:element name="StmtGnlDtls" type="Statement3"/>
<xs:element name="AcctDtls" type="SafekeepingAccount1"/>
<xs:element name="BalForAcct" type="AggregateBalanceInformation1" minO
+ccurs="0" maxOccurs="unbounded"/>
<xs:element name="SubAcctDtls" type="SubAccountIdentification1" minOcc
+urs="0" maxOccurs="unbounded"/>
<xs:element name="TtlVals" type="TotalValueInPageAndStatement" minOccu
+rs="0" maxOccurs="1"/>
<xs:element name="Xtnsn" type="Extension1" minOccurs="0" maxOccurs="un
+bounded"/>
</xs:sequence>
</xs:complexType>
XML

my $twig = XML::Twig->new (twig_handlers => {'[@name]' => \&showNestin
+g});

$twig->parse ($xml);


sub showNesting {
    my @path;

    for my $elt (reverse $_->ancestors_or_self ()) {
        next unless defined $elt->att ('name');

        push @path, $elt->att ('name');
    }

    print join ('.', @path), "\n" if @path;
}
[download]

Prints:

semt.002.001.01.PrvsRef
semt.002.001.01.RltdRef
semt.002.001.01.MsgPgntn
semt.002.001.01.StmtGnlDtls
semt.002.001.01.AcctDtls
semt.002.001.01.BalForAcct
semt.002.001.01.SubAcctDtls
semt.002.001.01.TtlVals
semt.002.001.01.Xtnsn
semt.002.001.01
[download]

which doesn't do exactly what you want (I can't see exactly what you want in any case), but should get you going.

I was actually using XML::Simple which was printing something like above. But the problem I want something like this

semt.002.001.01.PrvsRef
semt.002.001.01.RltdRef
[download]

The output is to related to semt.002.001.01 which is the root level. It just an example output file .It has various types with associated names. Like name = PrvsRef type = AdditionalReference2, name = RltdRef, type = AdditionalReference2. Therefore semt.002.001.01.PrvsRef;semt.002.001.01.RltdRef . Now I need to parse the xml file for the type "AdditionalReference2" it again has three different names with associated types. There fore semt.002.001.01.PrvsRef.RefIssr;semt.002.001.01.Ref so on . Therefore I need to look for the types Ref, RefIssr,MsgNm in the xs:complex type and append the names to the rootlevel. It has to find the root level and then append the intermediate nodes available in the xml file.

If I understand what you want then adding:

    my $type = $_->att ('type');

    return unless defined $type && $type eq 'AdditionalReference2';
[download]

following the my @path; line in showNesting does the trick and (for the sample data I used above) prints:

semt.002.001.01.PrvsRef
semt.002.001.01.RltdRef
[download]

---

Perl is environmentally friendly - it saves trees