42 30 joewrigley@jmac.org john@jmac.org

Joe

John

Wrigley Go ##

##


use strict;
use XML::Simple;
use Data::Dumper;

my $Xml = new XML::Simple (KeyAttr => []);
my $Input_File = "cust.xml";
my $Input = $Xml->XMLin ($Input_File, ForceArray => []);
my $Decl = "";
foreach my $Name (@{$Input->{'first-name'}})
{
	if ($Name eq "Joe")
	{
		$Name = $Name."& Sons";
	}
}

XMLout($Input, rootname => 'customer',	XMLDECL => $Decl, OutputFile => $Input_File);