sub GetMappletList
   {
        my $Target_node;
        my ($TableNm,$ColumnNm,$DomainNm,$AlgoNm);
        my @MaskingAlgorithmList;
        my @MappletNode;
   	my $MpltRefFile_Dir = shift;
   	my $MappletXmlName;
   	open GET_MAPPLET_LIST, "<","$Profiler_Dir/$MpltRefFile_Dir/Inventory.rpt" or die "ERROR : Couldn't Open $Profiler_Dir/$MpltRefFile_Dir/Inventory.rpt $!";
   	while (my $InvtoryCol = <GET_MAPPLET_LIST> )
   	       {         
   	                chomp $InvtoryCol;
   	                
   	       		($TableNm,$ColumnNm,$DomainNm,$AlgoNm) = split(/,/,$InvtoryCol);
   	       		if ($TableNm =~ /$SourceTableName/)
   	       		     {
   	       		        print " The Workflow xml nme is $OutFileName\n"; 
   	       		        $MappletXmlName = "$Mapplet_Dir/$AlgoNm.XML";
   	       		        print "The Dir name is $MappletXmlName\n";
   	       		        my $MpltParser = XML::LibXML->new();
   	       		        my $TargetXml = $MpltParser ->parse_file("$OutFileName");
   	       		        my $MpltXml = $MpltParser->parse_file("$MappletXmlName");
                                my @MappletNode = $MpltXml->findnodes('//MAPPLET');
   	       		        
   	       		        for my $node (@MappletNode) 
   	       		              {


                                       		print $node->toString(1); 
                                       		
                                       		
                                       		
                                       		
                                     }

   	       		     }
   	       }
   	close(GET_MAPPLET_LIST);
   
   }

##</code><code>##

<?xml version="1.0" encoding="Windows-1252"?>
<!DOCTYPE POWERMART SYSTEM "powrmart.dtd">
<POWERMART CREATION_DATE="01/24/2014 18:27:23" REPOSITORY_VERSION="181.90">
<REPOSITORY NAME="xyz" VERSION="181" CODEPAGE="MS1252" DATABASETYPE="Oracle">
<FOLDER NAME="DM_POC" GROUP="" OWNER="Administrator" SHARED="NOTSHARED" DESCRIPTION="" PERMISSIONS="rwx---rwx" UUID="c08574eb-cdf5-4bd1-bda0-d08519348c79">
    <MAPPLET DESCRIPTION ="" ISVALID ="YES" NAME ="mplt_Key_Lkp_NID" OBJECTVERSION ="1" VERSIONNUMBER ="1">

*****----THERE ARE COUPLE of OTHER SUB ELEMENTS WHICH ARE NOT GIVEN HERE------****
    </MAPPLET>
</FOLDER>
</REPOSITORY>
</POWERMART>

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE POWERMART SYSTEM "powrmart.dtd">

<POWERMART CREATION_DATE="1/25/2014 14:39:55" REPOSITORY_VERSION="181.90">
     <REPOSITORY NAME="rep_brcls_punapp830" VERSION="181" CODEPAGE="MS1252" DATABASETYPE="Oracle">
          <FOLDER NAME="DM_POC" GROUP="" OWNER="Administrator" SHARED="NOTSHARED" DESCRIPTION="" PERMISSIONS="rwx---rwx" UUID="c08574eb-cdf5-4bd1-bda0-d08519348c79">
               <SOURCE BUSINESSNAME="" DATABASETYPE="Flat File" DBDNAME="Flat_File" DESCRIPTION="" NAME="sample" OBJECTVERSION="1" OWNERNAME="" VERSIONNUMBER="1">
                    <FLATFILE CODEPAGE="US-ASCII" CONSECDELIMITERSASONE="NO" DELIMITED="YES" DELIMITERS="," ESCAPE_CHARACTER="" KEEPESCAPECHAR="NO" LINESEQUENTIAL="NO" MULTIDELIMITERSASAND="NO" NULLCHARTYPE="ASCII" NULL_CHARACTER="*" PADBYTES="1" QUOTE_CHARACTER="NONE" REPEATABLE="NO" ROWDELIMITER="10" SHIFTSENSITIVEDATA="NO" SKIPROWS="0" STRIPTRAILINGBLANKS="NO" />

******-----SOMETHING HERE ,THEY ARE NOT GIVEN AS THEY ARE TOO BIG-----------*****

</SOURCE>
          </FOLDER>
     </REPOSITORY>
</POWERMART>