You could also run it through Deparse to make it look a lot less ugly...that would by my first step.

perl -MO=Deparse script.pl

Yields: 

++$|;
undef $/;
$_ = $e || <ARGV>;
tr/+-.<>[]//cd;
foreach $a (']}', '[while($p[$p]){', '-$p[$p]--', '+$p[$p]++', ',$p[$p
+]=ord(getc)', '.print(chr($p[$p]))', '<$p--', '>$p++') {
    s/\Q${\substr($a, 0, 1);}\E/${\substr($a, 1);}\n;/g;
}
eval $_;

[download]
Yick! What is this program supposed to do anyway?

Updated
Here's my second pass at looking at this. Look at the elements in the foreach loop. The left most character of the element is what is looked for in the replacement and the rest of the element it what a match is replaced with.

This input 

[
<
-
]

[download]
Produces this output 
while($p[$p]){
;$p--
;$p[$p]--
;}
;

[download]
Could this be a home brew macro language parser? jeffa agree's with this idea.

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

In reply to Re: explain obfu code by maverick
in thread explain obfu code by Anonymous Monk

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.