I usually use XML::XSH2 for XML manipulation. In this case, it can be used as follows:

open Office.xml ;
my $new := insert element IP into //node[label="Office"]/node[label="1
+st Floor"] ;
set $new/text() '10.1.1.1' ;
save :b ;
[download]