oh and this too:

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