to add a pointer, this (using XML::LibXML) is exactly what IlyaM did very recently here.

-- Hofmator