local $/ = "";
while (<>) {
   if (m{<binddn>cn=\Q$user\E</binddn>}) {
      s{<bindpass>\K.*?(?=</bindpass>)}{$new_passwd};
   }

   print;
}