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