Select Code to Download

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

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

 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";

?:\s+|$) /mgx
also
...
Q$password\E}