This is the second in my "Perl in a..." series (which was only created because of my lack of creativity in naming these).

#!/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

[download]
Update: Changed as per John M. Dlugosz's comment - makes it a little more obfuscated, thanks!

His Royal Cheeziness

In reply to Perl in a box by CheeseLord

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.