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!,

ChOas

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