#!usr/bin/perl -l

use strict;
use warnings;
use URI::Encode qw(uri_decode);

my $encoded = "%E4%BA%8E%E6%96%AF%E5%B1%88%E8%BE%BE%E5%B0%94";
print uri_decode($encoded);