I'd be interested in seeing the output if you added

print Dumper($text);
print XML::Simple->VERSION;
[download]