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