Select Code to Download

use warnings;
use strict 'refs';
...

# prints 'Kook'
print " \u$l[4]$a{'n'}$a{'n'}$l[4]";

%a=(qw/b a z c n o/);@l=qw/o r t n k l e m/;$r=sprintf('%x',15);
print"\U$r\E$l[1]$a{b}";print$l[$_]for 3..4;print
", Jus$l[2] \u$a{b}$l[3]$l[0]$l[2]h$l[6]$l[1] \u$a{z}$a{b}";
for($r=7;$r>4;--$r){print$l[$r]}print" \u$l[4]$a{n}$a{n}$l[4]"