perl SGMLSpm