sub unescape {
    my( $str ) = @_;
    $str =~ s!\\x\{([0-9a-f]{4})\}!chr(hex $1)!ge;
    $str
};

print unescape('\x{0052}\x{0044}\x{0024}');