在perl语言中想把字符串中的 “&#XXXX ”（XXXX是4位数字）删除， 请高手讲解。