Okay guys, this is my first try at an obfuscation,
don't be too hard on me ;))
#!/usr/bin/perl -w
use strict;

my $Title="Larry Wall on the bottles of beer";

                @_=split / /,
                $Title; print
                 join " ","",
                 $_,join ("",
                substr($_[4],
                0,6),(($_!=1)
                ?"s":"")),@_[
                5,6,2,3 , 1],
                "\n",$_,join(
                "",substr($_[
               4],0,6),(($_!=1
              )?"s":"")) , @_[5
             ,6,],"\n" , "if" ,((
            $_!=1)?(join("",$_[2] ,
            substr $_[3],2),$_[5] ,
            join("",(substr $_[3],0
            ,2),  scalar   reverse(
            substr ($_[4],5),substr 
            $_[5],0,1)),$_[4]):   (
            join("",substr($_[3],0,
            2), substr($_[0],1,1) ,
            substr ($_[3],0,1)," ",
            substr($_[4],0 , 6))) ,
            join("","m",(split //,
            $_[0])[1,-1]," ",(split
            //,$Title)[15,1],"p"x2,
            (split //,  $Title)[16,
            12]),join ("" , substr(
            $_[3] , 0 , 1 ), substr 
            ($_[2] ,0 ,1))), join (
            "","f",substr ($_ [1],1
            ,3), ":\n"), $_-1, join
            ("",substr ($_[4],0 ,6)
            ,(( $_==2) ? "" :"s")),
            @_[5,6,2,3,1] , "\n \n"
             ,for reverse (1..10);

[download]

GreetZ!,

print "profeth still\n" if /bird|devil/;

In reply to I wonder what Larry's stand on beer is by ChOas

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.