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