my $x = '\x{263a}';

my $y = eval '"'.$x.'"';

# or
my $y = eval "\"$x\"";