$text =~ s/ \\u ( \p{Hex}{4} ) / chr hex $1 /gex;