$fileName = shift;
  open(HND, $fileName) or die "Can't open $fileName: $!";
  @fileArr = <HND>;
  close(HND);

  foreach my $line ( @fileArr ) {
        $line =~ s/<bindpass>welcome<\/bindpass>/<bindpass>Welcome1<\/bindpass>/g;

  }
  open(HND, ">$fileName") or die "Cant open for writing $fileName: $!";
  print HND @fileArr;
  close(HND);