#!/usr/bin/perl
use utf8;
use strict;
use warnings;

my $process = qq(\x{2013});
$process =~ s/\\x\{[0-9]+\}//sg ;
print $process;