Thank you for the help thus far, I managed to modify the script a bit an get it to grab the relevant info, but the issue now is that it is still not updating the file.Please have a look.

#!/usr/bin/perl

use strict; use warnings; use Tie::File;

my $filename = '/home/stain/Downloads/REMOTEopen.xml';

tie my @array, 'Tie::File', $filename or die "Cannot tie file $filenam
+e to array: $!";

foreach my $line (@array)
{
    my $newline = $line;    # Make a copy


         while ($line =~ / <Node \s+ Name="(.*?)" .*? Password="(.*?)"
+ .*? > /mgx)
        {
        my $name = $1;
        my $password = $2;
        print "Enter the plain text password for $name, ",
              "password is currently $password\n";

        chomp(my $newpass = <>);
        print "You will now swap $password for $newpass\n";
        print "Continue? (y/n)\n";
        chomp(my $answer = <>);

        # Change the copy

        #$newline =~ s{Password=\Q$password\E}{Password=$newpass} if $
+answer =~ /y/i;
        $newline =~ s{\Q$password\E}{$newpass} if $answer =~ /y/i;

    }
    $line = $newline; # Update this line in the file

}

untie @array
    or die "Cannot untie file '$filename': $!";
[download]