#!/usr/bin/perl --
use strict;
use warnings;

use XML::XSH2;

xsh(<<'__XSH__');
open "fudge.xml";
ls --indent /;

pwd ;
cd /fudge/factory ;
pwd ;

foreach //drop {
    if not( bindname/text()[contains(.,'abcde')] ){
        set bindpass xsh:subst(
            bindpass/text(),
            "welcome",
            "W-e-l-c-o-m-e",
            "i"
        );
    };
};

ls --indent /;
save --indent :b /; # overwrite original file, :b means backup

__XSH__

__END__
$ perl xsh.922557.pl
parsing fudge.xml
done.
<?xml version="1.0"?>
<fudge>
  <factory>
    <drop>
      <bindname>qqqqq</bindname>
      <bindpass>welcome</bindpass>
    </drop>
    <drop>
      <bindname>abcde</bindname>
      <bindpass>welcome</bindpass>
    </drop>
  </factory>
</fudge>


Found 1 node(s).
/
/fudge/factory
<?xml version="1.0"?>
<fudge>
  <factory>
    <drop>
      <bindname>qqqqq</bindname>
      <bindpass>W-e-l-c-o-m-e</bindpass>
    </drop>
    <drop>
      <bindname>abcde</bindname>
      <bindpass>welcome</bindpass>
    </drop>
  </factory>
</fudge>


Found 1 node(s).
Document saved into file 'fudge.xml'.

$ ls -loanh fudge*
-rw-rw-rw-  1 0 252 2011-08-26 06:05 fudge.xml
-rw-rw-rw-  1 0 234 2011-08-26 06:05 fudge.xml~