my $f="^("
                                                     ;my $r = '"';my$c
                                                 = 1; my $i; my $t;sub
                                                  llama{my $n=shift;my
                                                    $r=""; for
                                                    (1..11){$r
                                                    .=($n>=(2
                                                    **(11-$_))
                                                     )?1:0;if(
                                                    rindex($r,
                                                    "1")==$_-1
                                                   ){$n-=(2**(
  11-$_));}} return $r;}$_ = "0";$_.=llama(1855) ; $_ .=llama(
188);$_.=llama(935); my   @i= split(//,$_);foreach(@i){#;+++''
$_+=2;$f.='.'x$_.')('; $r.='$'.$c++.' ';}$r .= '"';#';+++;++'
$f.=')';my $string = "";foreach(<DATA>){$string.=$_;}#'+#++;:
$string =~ s/[ \n]//g;my@g=unpack("C*",$string);#;';:;##+'#
  my $st="";for(1..44){$st .= (($t=(($i=shift(@g))==#';###':
   38)?$i+shift(@g):$i-shift(@g))<=9)?#,.+'';'';';+'''++@#,
    "0".$t:$t;}$_=$st ."4";#++'##+;',::',;;+#;+##,;;@#@#+,
    /$f/;###';##';;;;++#+@++@#+#@+'',:'';'''+##+@;#:+@#:;
    my $s = eval $r;#`'+@@@@##@@@+###@#;,''#@@+@''++#+',
     my @p = split(/ /, $s);#@@@@+#@'@'+##+##@+#@++#@,`
      print pack("C*",@p). "\n";###@#@+#;@##+@######'`
       #@@#'';:+'''+#++`    '@@@#@#@@@###@@####@#+',.
         #@@+;##;'+;+#`      ,:+####@@@+#@#+#@#+@#
          #@@#++#;+##           ..+#+''#'@@@@#;+@#
           #@@##++'''             ` ,.` #@@@@#;#;.
           __DATA__                     #@@@@@@#+'
            &$.#&!                      :+.#{<?"&
            !.$.#                       .#:*.$O&%$
           .#O$<                        $.%&!.%&;
            .#_"                        %$.   #&!
            :,O&                        O/     }-
             .$.                        #<     ..
              $}                        *<     '+
              '&;                       &=     .$
               &!                        %$     .#

[download]

In reply to Still Learning... by johnlawrence

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.