$_=q;
&u&J&t&s;
;@_=split(/\&/);$_=
join('',@_)
;s#
\s*(.)(.)
#$2$1
#gx;$_.=
qq* %a%n%o%t%h%e%r*;s
/\%//gx;$_.=qq
|\|e\|P\| \| \|l\|r|
;s/\|(.)\|(.)\|(.)/$3$2$1/g;
$_.=qq.CHARKE\.
.;s/([A-Z])([A-Z])([A-Z])/\L$2$3$1\E/g
;s@\n@@g;$_.=$/;print;