#Guess the Code

#!/usr/bin/env perl
#What follows is the demented codings of someone bored.
package upsidedown;
use strict;
use warnings;
sub runs() {bless {}}
sub eats
{shift=~y///;my $funnyhat=shift;$funnyhat=$funnyhat+7;return($funnyhat);}
package demise;
sub expect() {bless{}}
sub run()
{shift=~y///;my $uation=shift;eval($uation);return(1);}
	package main;
			use strict;use warnings;#Heh
			sub
yes			{return("no")}
			sub
its			{return((shift)-3);}
			sub
crazy			{return(chr(shift));}
			sub 
silly			{if($#_==0){return($_[0]);sub int{};}else{my($Il,$L,$i)=(shift,shift,shift);return(chr(CORE::int(unpack("H",$Il)*($L+$i+1))));}}
			sub
this			{return(substr(shift,1,1))}
			sub 
works			{my $job=shift;return(chr($job))}
			sub
in			{my$force=shift;return($force.="m");}
			sub
the			{my$foot=shift;return(CORE::int(substr($foot,0,1))/CORE::int(substr($foot,1,1))*2);}
			sub
end			{return(works(shift))}
			sub
is			{if($_[0]=~/[0-9.]/){return(chr(shift))}else{return(" ")if($_[0]eq'not');}}
			sub
very			{if($#_=~/[0-9a-zA-G]*/){&int(eval($_[0]));return(shift)if(1)}else{return(shift);}}
			sub
great			{return("~")}
			sub
like			{return(shift)}
			sub
killing			{return((shift))}
			sub
without			{my$idiots=(shift);my$pace=like($idiots);return($idiots);}
			sub
you			{return(this(shift))}sub
   r			{my$ecret=shift;if(shift){return(chr(CORE::int($ecret)));}else{return(($ecret));}}
			sub
odd			{for(1..100){return$_ if is($_/2)eq"@"};}
			sub 
actors 			{return(shift);}


my $this;#is silly, I know
my $iguanna=runs upsidedown;
my $hoes=1337;
my $trangly=silly($iguanna->eats($hoes));
my $evil=14;
$hoes=$trangly/$evil;
$this.=$hoes;
$this=works($this);
my $plot=$iguanna->eats(its($evil));
my $dream=$hoes+$plot;
$this.=crazy($dream);end($trangly);
my $newplot=killing($this);
my $toes=in($newplot);
$this=$toes;
my$hat=0;
if($hat<$hoes){$hat=the($hoes);}
$this.=silly(without(chr(actors($hoes/$hat))));
my ($luck,$y)=("num","ber");
$luck=~y/num/ber/;
$luck=~s/be./13/;
$newplot=$luck;
my$hacke=r(you($luck));
$hacke=r($hoes/$hacke+r($luck));
$this.=($hacke=r($hacke,"y"));
$this.=this($this);
my$fate=yes;
$this.=silly($fate, $luck,$hat);
$this.=(is("very"). odd);
$this.=is("not"). great;
my$odd=$this;
my$self=great("ly");$odd=~
s/^((.?).*)/$1$2/;
my $advice=expect demise;
my $you=silly($advice);

$this=very($odd);
if($you->run($this)){die("for stupidity");}