Time for someone to write XML::TokeParser I guess.. as if there weren't enough XML modules and parser styles/models already. :)

Makeshifts last the longest.