I was feeling in a rebellious mood.
--
my one true love
#!/usr/bin/perl -w # anti-culture use strict; package thefinalfrontier; my$female_sheep='ewe'; my($firsthalf,$secondhalf); my$male_sheep=uc scalar(reverse qw(e l d n a h e i t));my$sandwich=reverse(qw(b u s));eval("$sandwich $male_sheep".' {bless{},shift();}');tie *WEAPONRY, 'thefinalfrontier';my @government_oppression = qw( divide sedate control);my @typeonegative;for(my #; $count=0;$count<=4;$count++){$^W=0;my $towel =''.# 'we rock pangalactic blat';my@method_breakdown=@_= split/ /,$towel,4;my@letters=split//,join('','','' ,$method_breakdown[$count]);if($count==3){$_=$/=$| =($firsthalf)=$method_breakdown[$count]=~/^(.)/ ;} push@typeonegative,$letters[$count];}$secondhalf=# chop(my$pronoun=reverse(split//,$female_sheep));my $grammar={0=>'d',1=>'d',2=>'led'};eval"sub\n\n\n\n ".uc('print').' { shift; print(STDOUT join\' \','. ',map{uc;}@_);}';for(my$count=0;$count<3;$count++) {print WEAPONRY join('',reverse(split(//,$pronoun) )),join('',@typeonegative[0..2],'\'','','','','',# $typeonegative[3]),join('',$firsthalf,$secondhalf) ,join('',$government_oppression[$count],$grammar-> {$count},chr(33)),"\n";} # anti-culture by amoe #
--
my one true love
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: anti-culture
by Just Some Guy (Initiate) on Dec 21, 2001 at 21:36 UTC | |
by Amoe (Friar) on Dec 21, 2001 at 21:44 UTC |
Back to
Obfuscated Code