Hallo,
Aha, also ein 'Bekehrter':-)
my $a_node = $nodes->item($i);
my $a_chld = a_node->getChildNodes;
^^^^^^^^
Versuchs hier mit $a_node;-)
for (my $j=0; $j<$a_chld->getLength; $j++)
[...]
print 'Work Phone: ' .
$a_child>getFirstChild->getData . "\n";
^^^^
und hier mit ->;-)
Grüße
Klaus