Select Code to Download

m/\A\[_\p{ID_Start}]\p{XID_Continue}*\z/

use utf8;
binmode STDOUT, ':utf8';
...
print "\$$symbol = $$symbol\n";
print "$symbol is found in package ", *{__PACKAGE__ . '::£1%^@"¥'}{PAC
+KAGE}, "\n";
print "\$main::${symbol} has a value of ", ${'main::£1%^@"¥'}, "\n";

(define ¥ (lambda (x y) (+ x y)))

...
1 ]=> (¥ 3 5)

;Value: 8