#!/usr/bin/perl
use strict;
use warnings;
use XML::Smart;
my $xmlstring = q{
<root>
 <member id="1" name="member1">
  <ips>
   <ip1>
    <from></from>
    <to></to>
   </ip1>
   <ip2>
    <from></from>
    <to></to>
   </ip2>
  </ips>
 </member>
</root>};
my $XML = XML::Smart->new($xmlstring);
$XML->{root}{member}{ips}{ip1}{from} = 'I am IPS IP1 From';
print $XML->data(noheader => 1);
__END__

<root>
  <member id="1" name="member1">
    <ips>
      <ip1>
        <from>I am IPS IP1 From</from>
        <to/>
      </ip1>
      <ip2>
        <from/>
        <to/>
      </ip2>
    </ips>
  </member>
</root>