#!/C/perl/perl -w use Encode; use XML::Simple; use Data::Dumper; use strict; my $rData = XMLin($ARGV[0]); #print Dumper($rData); my $val = $rData->{routedata}->{routenm}; $val =~ s/\&\#x([a-fA-F0-9]{4})\;/pack("C",hex($1))/eg; print encode…