#/usr/bin/perl
$A[10]=chomp($_=$^);$C=K;@A=split q&&,$_;$J='';s$(\w)+$ $;$A=$_=
"J@A[4,0..1]".$_;s? (\w)?$1?g;$_.=uc'$A\n'.$|;$A=chop($P=reverse
q@PERL@);$H=chop($P=reverse$P);$_=reverse($_.=&_.$P."$'$J$A$P$H'
".$'.q%$H?($A:$C=$J)%);s&[^\w|| ]&&g;s|\w|K|||s.$C$.CAH.g;$A=$|;
while($_){$__.=chop$_}$_=$__;{print}$A[10]||die$P;sub _{$A[1].H}