#!/usr/bin/perl use strict; use warnings; use URI::Escape::XS; print decodeURIComponent("%E5%B0%8F%E9%A3%BC%E5%BC%BE");