$c=$=;$=/=$-=@_=qw(Nothing to hide);($m=$-)++;$c+=$-*$m;
while (<DATA>){
    s#(sub)$#\1 #;
    chop && $. < $- ? $x : $t .= $_;
    $. > $= && last;
}
$!=$%;$-=$=;($%=$=-=$=)++;
$.=~s[2][join $\, map {$$_[$%]} sort{$$a[$!] <=> $$b[$|]} 
    map{[(map{unpack("c*",pack((pack"c",$c)."*",$_))} 
        $x =~ /(..)/g)[$=++],$_]} $t =~ /(.{$-})/g]seeme;

__DATA__
0f1623020c2127042e12071f19202f290a1510333236353109081a25
1d000d24050611171c1b0314300b2637132a2d2b2c28340e22181e01
 ","BMSFBEZ QMBZFE:" / /,$_;$c=@ww;$wd=l <",keys %ls,">\n$mg
" " x $1/e for@pc;(@"","","a");@xmg=("ZP"$mg[0] ($wd)\n";exi
"$mg[3] $x"}elsif($l"12O22|21/23\\31/33\";dw(6);exit;}}else{
"ifcseujmtaqybnzdwgv$_="21\\22O23/32|41/$_}@xmg;while(1){dw(
$_}}split //,$wd;$gs$er);if($er>5){print$er++}$ls{$x}++}sub 
$x"}elsif($wl{$x}){f)/g;($er,$wd,$gs,$ms);s/\n/ /g;@ww=split
,"ZPV XPO!");%grbl=m,1)=$cp[$_-1][2]}sys-1][0]],$cp[$_-1][1]
/,@p,$/;if($msg){pri/linux/;print join $0]){substr($p[$cp[$_
2,$3]while /(.)(.)(.43\\";push@wcp,[$1,$="-" x length($wd);$
=lc($1)if$x=~/(\w)/;@mg=map{tr/[b-z]/[a-@pc=qw(2+--+ 5| 5| 5
V MPTU","vtfe:","hvf[2]";chomp($x=<>);$x\";push@cp,[$1,$2,$3
]while /(.)(.)(.)/g;ap{$_,$A++}split //,c($ww[rand($c)-1]);$
c++for split //,$wd;c=0;push@{$wl{$_}},$cp,@wcp)=((),());$_=
def;$_=<DATA>}srand(dw{@p=@pc;for(1..$_[g,$A,%ls,%wl)=(0,"",
if($x!~/^\w$/){$msg=nt"$msg$/";$msg=""}}okxphlr";{local$/=un
or(@{$wl{$x}}){substp;$msg="$mg[5] ($gs)r($gs,$_,1)=$x}unles
s($gs=~ /-/){@cp=@wcs{$x}){$msg="$mg[4] tem("clear")if $^O=~
tt: ","JOWBMJE JOQVUt}print$gs,"\n$mg[1]wd=join"",map{$grbl{
y]/;tr/[B-Z]/[A-Y]/;| 5| -----+);s/(\d)/