in reply to XML::TokeParser, how to use it??

Have you tried HTML::LinkExtor?