open(FILE, "$jabuserdir/$username.xml");  
while (<FILE> )
  {
    s/xdbns='jabber:iq:auth'>(.*)</$usernewpwd/g ;
  }
  close( FILE );