in reply to japhy's regex article for the TPJ
You can see one at XML::Parser::Lite. I use it for XML::Smart as XML::Smart::Parser, but with some updates and fixes.
Graciliano M. P. "Creativity is the expression of the liberty".