while ($line =~ / < Node \.*? Name="(.*?)" Type=".*?" Descr=".*?" Icon=".*?" Panel=".*?" Username=".*?" Domain=".*?" Password="(.*?)" .*? > /mgx)

##</code><code>##

while ($line =~ / < Node \.*? Name="(.*?)" .*? Password="(.*?)" .*? > /mgx)