obfuscated
mikeB
<code>
;;$
x =
time
;;$
u=q
/x/
;;;
my$
y;$
x =
'l'
;;$
z
=24
/2;
;;@
O=
map
{ $
y.
&$x
($
s ,
$_)
}
grep
!
/5/
,
reverse
unpack
"a$
z"x
$z,
<<_
251392848210110020030445000963087241401000002952011052039509000009231727953215528852001789748089000009144872
_
;;;
sub
l{$
y .
localtime
pop
};;
print
map
{ $
y
.lc
}
unpack
(
"$u$_ a"
,
pop
@
O )
for
((($z/3),(2*$z-3-(8*2+cos(0)))),(+6,(atan2(0,0)+1)));
</code>