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