Select Code to Download

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

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