#!/usr/bin/perl
use warnings;
use strict;
my $c = '\x{92}\x{93}\x{94}';
$c =~ s/\\x\{(\d{2})\}/{chr(hex($1))}/ge;
print $c, $/;
__END__
'""