my $x = 'st\x{f9}';
$x =~ s/\\x\{([\da-fA-F]{2,4})\}/pack("U",hex($1))/ge;