%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}",map{$l[$_]}3..4;$\=" \u$l[4]$a{n}$a{n}$l[4]";
print", Jus$l[2] \u$a{b}$l[3]$l[0]$l[2]h$l[6]$l[1] \u$a{z}$a{b}".
join"",map{$l[8-$_]}1..3


##</code><code>##

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/