perl Class-XPath