$J=qw,34+40;117;79+36;(116);32;,;

$s=sub{eval(shift())};#This is my eval

@u=('a'..'z');

$J.=qw:97;110;111;(116-0);104;101;114;(16*2);:;#from hell

$s=sub{eval(shift())};

$J.=qw:;112;101;114;108;32:;#JAPH. It isn't very
$t=sub{
	my@e=@u;
	my$u=16;
	$t_=sub{"$e[$u+2]$e[$u]$e[++$u]$e[++$u+1] $_[0]"};
	&$s(&$t_(shift()))
};

$e=sub{
	$t_=sub{"$u[&$t(4)]$u[7]$u[17] $_[0]"};#ha-
	&$s(&$t_(shift()));
};

$J.=qw:;104;97;99;107;101;114:;

$f=sub{
	$t_=sub {"$u[15]$u[17]$u[8]$u[13]$u[19]($_[0])"};
	&$s(&$t_(shift()));
};#to figu-

$_=$g+=$s;

$g=sub{
	$t_=sub{"$u[5]$u[14]$u[17](@_)"};
	&$s(&$t_(eval@_));
};

print (&$e(&$s($_)))for(split(/;/,$J));
print "\n";#-re out at all;-)

##</code><code>##

	$t=sub {
                         s      q     r     t
            $t_=sub{"$e[18]$e[$16]$e[17]$e[19] $_[0]"};				
            &$s(&$t_(shift()))
	}
	
##</code><code>##

	$t=sub {
		$t_="sqrt $_[0]";
		&$s( $t_ )
	}
	
##</code><code>##

      $t=sub { sqrt $_[0]; } # &$s merely evaluates the string
	
##</code><code>##

	$e=sub{
                          c      h     r
            $t_=sub{"$u[&$t(4)]$u[7]$u[17] $_[0]"};#ha-
            &$s(&$t_(shift()));
	};
	
##</code><code>##

	$e=sub { chr($_[0] ) };
	
##</code><code>##

for ( split(/;/,$J) ) {
	print ($&e(&$s($_));
}

##</code><code>##

@J =( 74,117,115,116,32,97,110,111,116,104,101,114,32,112,101,114,108,32,104,97,99,107,101,114);
for ( @J ) { 
	print chr( $_ );
}
print "\n";