#!/usr/bin/perl -w
use strict;
use warnings;

my $xml = '<?xml version="1.0"?><root>&#237;</root>';
print($xml,"\n");
$xml =~ s/\&\#(\d*);/chr($1)/gse;
print($xml,"\n");