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