Select Code to Download

use open ':std', ':locale';  # So stuff you print shows up right.

...
s/\\u(.{4})/chr(hex($1))/eg;
print "decoded string length is ", length($_), "\n";
print "decoded string is $_\n";