**=\2;$#{*}=$**$*;%*=($*/$*,($**$**@**@*)-($***($**$*)),$*,
($**$**@**@*)+$**$*,@*-$*,($**$**@**@*)+$*/$*,$**$*,$***@*,
$**$*+$*/$*,$***($**$*)*@*,$**(@*-$*),($**$**@**@*)+$*/$*,
$*+@*,$**($**@**@*+@*+$*),$***(@*-$*),$**$**@**@*+($***(@*-$*)),
(@*-$*)**$*,$***@*,$**@*,$***($**(@*-$*))+$**@*,$**@*+$*/$*,
$**$**@**@*+@**$*+$*/$*,$**@*+$*,$***($*+@*)-(@*-$*)**$*-$*,
$**@*+(@*-$*),$**($**@**@*+@*+$*),$**($*+@*),$**$**@**@*+$**@*,
@**(@*-$*),$**$**@**@*-(@*-$*),$***($**$*),($**$**@**@*)+$***(@*-$*));

$_=<<'go//s\/s';

			;)*%(sy  ek}b$>  =<a${tr
			   o     s    }     }
			   _     ${*$rh     c
			   {     p       a  m
			   +     t       nirp

go//s\/s

$code=<<'Jeff Pinyan';

			eval(sc  alar(re
			   v     e     r
			   s     e     [
			s  /     \s//og,
			$  _     ]
			-  >     [
			1]))     ;

Jeff Pinyan

eval [$code=~s/\s//og,$code]->[1];
