print "Enter the plain text password for $name, ",
              "password is currently '$password'\n";

##</code><code>##

Enter the plain text password for "Q9" Type="Container" Expanded="True" Descr="" Icon="mRemote" Panel="General" Username="" Domain="", password is currently '""'


##</code><code>##

 my @names = grep /\bName=(.*?)/ , @array;
    my @password = grep /\bPassword=(.*?)/ , @array;

    my $newline = $line;    # Make a copy

 print "name is $names[0] and password is $password[0]\n";

##</code><code>##

?:\s+|$) /mgx
also

Q$password\E}