my($x,$y) = ('\x{263a}',undef);
eval '$y = $x';

##</code><code>##

my($x,$y) = ('\x{263a}',undef);
$y = eval($x);