$string =~ s/&#(\d+);/chr $1/eg;