Select Code to Download

use utf8::all;

...
$str =~ s{ \\u([0-9A-F]{4}) }{ chr hex $1 }egix;

print $str;