Code:
#!/usr/bin/perl
;;;;;;
;;;;;;;;;;;
;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;
+$I=sub{+s+^+ ;;;;;;; ;;;;;;;;;
$"x$_[1]+gem;$/x$_# ;;;; ;;;;;;;;
[0].$_.$/};$W=sub{$~=!q~ ;;;;;;;
~.pop();system($^O=~Win?ClS:# ;;;;;;;
'clear'),print,select$Z,$Z,$Z,!" ;;;;;;
"||$~for@_};$H=sub{+join$/,map($_# ;;;;;;
x$_[0],pop=~m-.+-g),!_};$_=!Mima,s-- ;;;;;
"@{['=9+)w'^RINGS]}\%;local@{[Saturn^# ;;;;;
wNXIBP]}"-see;s-^#!..+?$/(?=$"+;)--is ;;;;
y-;-'-;s-\w-~-gi;$S=$_;#--Beautiful] ;;;;
@S=m-.+-g;$N=1+.6-!th_,$--=-82-$--- ;;;
$_.=$"x-(y---c-$-)for@S;$R=sub{$i# ;;; -d
=0;join$/,map{$j=$%;join!_,grep# ;;; Rhea
!($j++%$_[$%]),m-.-g}grep!($i# ;;; -Titan
++%$_[0]),@S};$L=join!_,map# ;;; -Huygens
~~reverse.$/,@S;@R=(&$I(q- ;;; -&&20,051,
$_=_^q-q-),&$I(20,41-!q- ;;; -,$_=F|K),$
I->(15,31,$_=&$R(4-!q- ;;; -)),&$I(13-!"
;;",28,$_=&$R(3)),&${ ;;; _^_^I}(10,20-!"
;;;;;",$_=$R->(2)),q- ;;; -&&$S);@O=map&{"
;;;;;; "&&$H}($_,&${ ;;; R.!-_}($_))x$_,!"
;;;;; "+2..2*~~2 ;;; @Y=reverse@R#Dione
;;;;;; &${m-- ;;; S|A|T|U}(@R,$N)||!q-
;;;;;;; b- ;;; &$W(@O[0,1,2,1,0!=!q-
;;;;;;; ;;;; -],!1!~~1);&$W($S.!q-
;;;;;;;;; ;;;;; -,$L,0.16)for$%..5+!q-
;;;;;;;;;; ;;;;;;;;; Cassini-;&{$W||q-
;;;;;;;;;;;;;;;;;;;;;; -}(@Y,1.6)
;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;
;;;;;;;;;;;
;;;;;;
If you know any perl at all, this will be the most insane thing you have ever seen. I almost lost my mind and jumped out the window. Just run it in a terminal if you have a *nix perl installation. It takes about 30 seconds....I *promise* nothing bad will happen.....
Originally Posted by Sebastiani
CornedBee
I'm always amazed at what people can do with obfuscated code. (I had kind of hoped that each successive frame was Perl code to generate the next one, but that would have been beyond impossible I suppose. It's impossible enough!)
