#!/usr/bin/perl   -w
pos;open 0;undef $/;
rand 23;$/=<0>;for$%
(split(/\n/,$/)){$;=
int 5;substr($%,1)=$
n='';our$n;-o'n';$_=
time+2;$%=~s/\(|#//;
($@.=$%)};sub b{$/="
 Just Another Obfu"}
$ie=substr$/,time*0+
index($/,'no')-6,17;
eval$@;$ie=time-$^T;