#!/usr/bin/perl -w
use strict;

$_="Perl in a box";for(/\S/g){@_=(@_=>lc)}
my($i,$k)=(0,'');for(@_){$_{$_}=$i++}undef
$/;$_=<DATA>;s;\s;;g;for(/../g){my@k=/./g;
@k=(pop@k,@k)if($k[1]ne lc$k[1]);for my $k
(@k){$k=$_{lc$k}}$k.=chr(30+pop(@k)+10*pop
(@k))}$_=$k;s|(.{20})|$1\n|g;eval __DATA__
aPAnLelOAeOnxREaErRxbRrReBAbBeRieBRaRrEoAx
pRBpxABpBeeBaRpBEo      AxbABerRRrEobAEoAx
AbBerRrPrPrPPrPrr        PrPrPrPrPPrPrrPPr
PrrPpBaRrRoEPrPrP        rrPrPPrPrrPPrrPPr
PrPrrPrPrPpBoEAxR        prPrPPrrPrPrPrPPr
rPPrrPrPPrrPPrPrAx      iRBpiRrPrPrPrPrPPr
PrPrrPrPPrPrPrrPPr      rPxAbAeBrRPrPrrPPr
rPrPPrPrPrrPPrrPP        rrPPrPrExRrRxOnPr
PrPrrPrPrPPrPrPrP        rPrrPPrrPPrPrRxiL
nAeLPrrPPrPrrPPr          rPrPPrrPPrrPPrrP
rPrPEbaEEaEbrPPr          PrPrPrPrPrPrrPrP
rPrPPrPrrPPrlBx            RBreOrPrPPrrPPr
rPPrrPPrrPPrPrr            PrPrPrPiOEpiLAn
rPrPrPrPrPrPrPP            rrPrPrPrPrPrPPr
rPEeXlPaAnPrrPr            PrPrPPrPrPrPrrP
rPPrPrPrPrPrLexAiBOiPrrPrPPrrPrPPrPrPrPrrP
PrrPPrPrrPEppEiBBePrrPrPPrrPrPPrrPrPrPPrPr
   PrrPrPPrpXeELrLrxEeEnXaPnAeLaBOeBnpO
      xPxPiEiLnAxRrOiOnBpOOaAlRxOnxR
        rPiXArpOxRRxlBxRBeOoAboBRx