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

##</code><code>##

$_="Perl in a box";
for(/\S/g){
@_=(@_=>lc)
}

##</code><code>##

my($i,$k)=(0,'');

##</code><code>##

for(@_){
$_{$_}=$i++
}

##</code><code>##

undef $/;
$_=<DATA>;

##</code><code>##

s;\s;;g;
for(/../g){

##</code><code>##

my@k=/./g;

##</code><code>##

@k=(pop@k,@k)if($k[1]ne lc$k[1]);

##</code><code>##

for my $k (@k){
$k=$_{lc$k};
}

##</code><code>##

$k.=chr(30+pop(@k)+10*pop(@k));

##</code><code>##

}

##</code><code>##

$_=$k;
s|(.{20})|$1\n|g;

##</code><code>##

eval

##</code><code>##

$_=q[s;.*;94eae6e840
c2dcdee8d0cae440a0ca
e4                d8
40                d0
c2                c6
d6                ca
e4                14
;s                ;@
_=                /.
./                g;
fo                r(
@_                ){
$_                =c
hr                ((
he                x)
>>1)}$_=join'',@_;pr
int];s; |\n;;g;eval;

##</code><code>##

$_=q[
s;.*;94eae6e840c2dcdee8d0cae440a0cae4d840d0c2c6d6cae414;s;
@_=/../g;
for(@_){
    $_=chr((hex)>>1);
}
$_=join'',@_;
print
];
s; |\n;;g;
eval;