XMLの中の文字参照表記をデコードしてみるテスト

#!/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("shiftjis", $val);

　なんとかデコードできたみたいです。　サンクス＞id:cubick