#!/usr/bin/perl

use strict;
use warnings;

my ($found, $pass, $name, $line, @array, @sarray, @files, @names, @password);

my $filename='/home/stain/Downloads/REMOTEopen.xml';
        open(XML, "+>> $filename") || die ("Error: $!");

        chomp(@array=<XML>);
foreach(@array)
{

        @sarray=split(" ", $_);



                                 @names = grep /\bName=/, @sarray;
                                 @password = grep /\bPassword=/, @sarray;

                        if  (@password)
                        {
                                foreach(@names, @password)
                                {
 
                                 print XML qq(Enter the plain text password for $_, password is currently "$password[0]"\n);
                                  chomp($pass=<>);
                                 print qq(You will now swap $password[0] for Password="$pass"\n);
                                        print "continue? y/n\n";
                                        chomp(my $ans=<>);
                                                if ($ans =~/y/im)
                                                {
                                                s/$password[0]/Password=$pass/ ;
                                                print XML $_;
                                                        }



                                 }

                        }



        }