$(res.appl) $(res.appl)$(res.sl +ash)all.4gm 4gs rt.2.10.01-1138 ifx msv ##
##

my $Tag_Resource ='/CONFIGURATION/APPLICATION_SERVER/RESOURCE_LIST/';
my $Tag_Resource_PI=$Tag_Resource.'PLATFORM_INDEPENDENT/RESOURCE';
    my $Tag_wnt=$Tag_Resource.'WNT/RESOURCE';
    my $os_res_group;

    my $parser=new XML::XPath->new(filename => $source);
    $parser or die "Unable to parse sourse file: $source\n";

    my $Set_Resource = $parser->find($Tag_Resource_PI);

    foreach my $resource ($Set_Resource->get_nodelist)
    {
        my $attribute=$resource->getAttribute('Id');
        my $child_node = $resource->getChildNodes();
        if (exists $$HRR_resource{$attribute})
        {
        print "Attribute exists: $attribute";
        }
        else
        {
         #Add attribute to XML
        }