After browsing through some of the obfuscated code of the mighty Erudil, I decided to try my hand at some obfuscation for the first time - The following is the result (set your code wrap tags to 85 to see the shaped effect):
 
#!/usr/bin/perl

                                                   $_='$_=y(
                                                 ((x($;))+((x(
                                             $;))+(x($;)))+(x($;
                                           )))).y(((x($;))+((x($;)
                                         )+(x($;)))+(x($;)))+(z(y(x(
                                        $")).y(x($"))))).y((x($"))+(
                                      x($"))+(x($"))+(x($"))-(x($;))+
                                     (x($"))-(x($;))+(z(y(x($;))))).y(
                                 (((x($;))+(x($;)))+((x($;))+(x($;))))
+-(z
                                (z(x($")).y(x($"))))).y((((x($;))+(x($
+;)))
               +((x($;))+(x($;))))+(z(y(x($")).y(x($")).y(x($")).y(x($
+"))))
     ).y(((x($")))).y(((x($"))+(z(y(x($;)).y(x($;)))))).y((((x($"))+(x
+($")))
+(((x($"))-(x($;)))+((x($"))-(x($;)))))+(((x($"))-(x($;)))+((x($"))-(x
+($;))))
+(z(y(x($;))))).y(((x($;))+(x($;)))+((x($;))+(x($")))+(z(y(x($;)))) ).
+y(((x($;
))+(x($;)))+((x($;))+(x($;)))-(z(y(x($"))))).y((x($;))+(x($;))+(x($;) 
+   )+(x(
$;))+(z(y(x($")).y(x($")).y(x($")).y(x($"))))).y((x($"))+(x($"))+(x($"
+       ))+
(x($"))-(x($;))+(x($"))-(x($;))).y(((x($")))).y((x($;))+(x($;))+(x($;)
+)+       (
x($;))+(z(y(x($")).y(x($")).y(x($")).y(x($"))))).y((x($"))+(x($"))+(x(
+$"))+(
x($"))-(x($;))+(x($"))-(x($;))).y((x($"))+(x($"))+(x($"))+(x($"))-(x($
+;))+z(y
(x($;)))).y(((x($")))).y((x($"))+(x($"))+(x($"))-(x($;))+(x(
$"))-(x($;))+(x($"))-(x($;))+(x($"))-(x($;))+(z(y(x($;)).y(x
($;))))).y((x($"))+(x($"))+(x($"))+(z(y(x($;))))).y((x($"))
+(x($;))+(x($;))+(x($"))-(z(y(x($;)).y(x($;))))).y((x($")
)+(x($"))+(x($"))+(x($"))-(x($;))+z(y(x($;)))).y((x($;)
)+(x($;))+(x($;))+(x($;))-(z(y(x($")).y(x($"))))).y(((
x($")))).y(((x($"))+((x($;))+(x($"))))).y(((x($"))+(z
(z(x($;)).y(x($;)))))).y((x($"))+(x($"))+(x($"))-(x
($;))+(x($"))-(x($;))+(x($"))-(x($;))+(z(y(x($;)).
y(x($;))))).y((x($"))+(x($"))+(x($"))+(x($"))-(x($;
))+z(y(x($;)))).y((x($"))+(x($;))+(x($;))+(x($"))-
(z(y(x($;)).y(x($;))))).y((x($"))+(x($"))+(x($"))+(
x($"))-(x($;))+z(y(x($;)))).y((x($;))+(x($;))+(x($;
))+(x($;))+(z(y(x($")).y(x($"))))).y((x($;))+(x($;
))+(x($;))+(x($;))-(z(y(x($")).y(x($")).y(x($")))
)).y((x($;))+(x($;))+(x($;))+(x($;))-(z(y(x($"))
))).y((x($;))+(x($;))+(x($;))+(x($;))+(z(y(x($"
)).y(x($"))))).y((x($"))+(x($"))+(x($"))+(x(
$"))-(x($;))+(z(y(x($;))))).y((x($"))+(x($"
))-(x($;))+(x($"))-(x($;))+(x($"))-(x($;
))+(z(y(x($;)).y(x($"))))).y((((x($"
))+(x($;)))+(x($")))).y(((x($"))+(z
(y(x($;)).y(x($;)))))).y((((
x($"))-(x($;)))+((x($"))
-(x($;))))+(z(y($").y(
$;)))).y(((x($"))+(z(
y(x($;)).y(x($;)))
)));eval;';s/x/ord/g;
s/y/chr/g;s/z/length/g;
eval;

[download]

 
Ooohhh, Rob no beer function well without!

In reply to Quoth the Raven by rob_au

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.