my($x,$y) = ('\x{263a}',undef); eval "$y = $x"; [download]
In reply to Re^2: Escaping Wide Characters by mobiusinversion in thread Escaping Wide Characters by mobiusinversion