use strict;
use XML::Twig;
my $file = $ARGV[0];

my $first = 'paragraph';
my $replace = 'p';

my $twig = XML::Twig->new(twig_handlers => 
{"$first" => sub {$_->set_gi("$replace")}},
);
$twig->parsefile($file);
$twig->print;

##</code><code>##

Input:

<paragraph>Soci&#x00E9;t&#x00E9; Nationale des Chemins de Fer Fran&#x00E7;ais, the Spain (Telef&#x00F3;nica)</paragraph>

Current Output:

<p>Société Nationale des Chemins de Fer Français, the Spain (Telefónica)</p>

Expected Output:

<p>Soci&#x00E9;t&#x00E9; Nationale des Chemins de Fer Fran&#x00E7;ais, the Spain (Telef&#x00F3;nica)</p>