Nice work. Could need some more obfuscation though. :)

Let's take a look at what the subs do first: 

sub r {
  print shift; # print the argument given
}

sub z {
  r(' ');      # same as print ' ';
}

sub p {        # this prints the letter with the index
               # given as the argument
  $_ = shift;  # set $_ to the argument
  $a = 'a';    # set $a to 'a'
  while ($_) { # as long as $_ isn't zero...
    ++$a;      # increase the letter (magic)
    --$_;      # decrease $_
  }
  r($a);
}

[download]
So much to the subs. The only thing left are the subcalls then: 
# j      u       s       t
p(9);  p(20);  p(18);  p(19); z(104); 

# a      n       o       t      h      e       r
p(0);  p(13);  p(14);  p(19); p(7);  p(4);  p(17); z(14);

# p      e       r       l
p(15);  p(4);  p(17);  p(11); z(11);

# c      o       d       e      r       .
p(2);   p(14); p(3);   p(4);  p(17);  r('.');

[download]


$§=lc(sub{}^" \6 \n");$§=~s/\(.*\)//;for(split
('',$§)){$/=$_;for(5..7){$/++}$:.=$/}print$:;1

In reply to De-Obfuscation of Penguin JAPH-like by flgr
in thread Penguin JAPH-like by Dylan

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.