$string =~ s{&#(\d{5})}{chr( $1 )}ge ;