use strict;
use warnings;
use Data::Dumper;
use XML::DOM;

my $parser=new XML::DOM::Parser;
my $doc = $parser->parsefile('C:\perl\perl_tests\package.xml')or die$!;
my $root=$doc->getDocumentElement();

my $string="Johnson Controls Automotive Electronics
Package: GMLAN 3.1 - Single Channel
Micro: uPD70F3524
Compiler: Green Hills 5.1.7-CBD1110030";
my @package=$root->getElementsByTagName("package");

foreach my $package(@package)
{
if($package->getAttribute("name"))
{
my $name=$package->getAttribute("name");
print("$name\n");
$package->setAttribute("name",$string);
my $name_updated=$package->getAttribute("name");
print("$name_updated\n");
}
}
$doc->setXMLDecl($doc->createXMLDecl('1.0','UTF-8'));
$doc->printToFile("C:/perl/perl_tests/package.xml");





XML FILE :

<?xml version="1.0" encoding="UTF-8"?>
<ecuconfig id="1" name="ECU: IPC_LS" FrameworkVersion="1.4.48.0" CompatibleVersion="1.4.0.0">
<package name="Johnson Controls Automotive Electronics Package: GMLAN 3.1 - Single Channel Micro: uPD70F3524 Compiler: Green Hills 5.1.7-CBD1110030" path="C:\Vector\CBD1110030_D04_V85x\Generators\Components\">
<delivery version="09.01.22.01.11.00.30.04.00.00"/>
</package>
<package>
<delivery version="08.00.09.01.01.00.04.00.00.00"/>
</package>
</ecuconfig>





MODIFIED XML FILE AFTER RUNNING THIS SCRIPT :
<?xml version="1.0" encoding="UTF-8"?>
<ecuconfig id="1" name="ECU: IPC_LS" FrameworkVersion="1.4.48.0" CompatibleVersion="1.4.0.0">
<package name="Johnson Controls Automotive Electronics&amp;#xA;Package: GMLAN 3.1 - Single Channel&amp;#xA;Micro: uPD70F3524&amp;#xA;Compiler: Green Hills 5.1.7-CBD1110030" path="C:\Vector\CBD1110030_D04_V85x\Generators\Components\">
<delivery version="09.01.22.01.11.00.30.04.00.00"/>
</package>
<package>
<delivery version="08.00.09.01.01.00.04.00.00.00"/>
</package>
</ecuconfig>