my ($result)= m%</Name><Symbol>([^<]*)</Symbol>%;