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);
GreetZ!,
print "profeth still\n" if /bird|devil/;