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

my@d=split(/\n/,q{split//,$m;while(scalar@d){@d=d($h,\@d);}print"\n"; 
['f','b']],[[['k',['w','p']],['g','u']],'a']]]]];my$m='_001011110^_0
){($c eq'_')?$u=1:print $h{$c};$c=shift@{$d};}return d($t->[$c],$d);
011110._001_1000^000001.11101001010110100.000101111011100d_001011110
,' ','.',' ','b',"\n",'d',"\n",'c',',','e',',','-','-',);my$u;sub d{
1010b_111110110100^0101011^0001011110._01001111110011111000011110100
001011110^_101000110010100^001111010.0001011110._1001010101111110101
110110100^001111010._10011100100111000010110100^11110010101111010011
10^0001011110._11110011_1001.101001011101000d^....^^...^...^^..--._0
01000^11101101010110100.000101111011100b_0101011^0001011110^_1010111
000bb1111001011010101010c.1000001100100011111';$m=~s!\s!!g;my%h=('^'
._001_1000^000001.111011100101010111111010.000101111011100.111111010
my($t,$d)=@_;if(ref($t)){my$c=shift@{$d};while($c!~/^\d$/x&&length$c
01_1000.000001.100111110111010110^000101111011100.1111110101010b_001
}else{if($u){$u=0;print uc($t);}else{print $t;}return@{$d};}}my@d=
my$h=[[['t','o'],[['d','i'],'n']],[[['s','r'],['l','h']],['e',[['m',
});for(my$i=0;$i<$#d/2;$i+=2){my$t=$d[$i];$d[$i]=$d[$#d-$i];$d[$#d-
$i]=$t}eval join("",@d);#my$h=[[['t','o'],[['d','i'],'n']],[[['s',''

[download]

/\/\averick
perl -l -e "eval pack('h*','072796e6470272f2c5f2c5166756279636b672');"

Update: Forgot to test if it produces any warnings. It doesn't so I added the '-w'.

In reply to With apologies to J.R.R by maverick

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.