I hate myself.. had to use comments ;)#!/usr/bin/perl -w ############################## $copy="reverse(\"SU OT GNOLEB ERA ESAB RUOY LLA"; $pi=3.1415927654321165;$d=0;$_="Polypoid";$_=lc;; s/p/m/g;s/y/ri /;s/ m/ Mc/;s/lr/ár/;s/(m)o/s$1/;; $_=ucfirst;$n="NaCl";s/ / PFJK/;s/K/á /;s/F./ál/; s/(l)(á)/$1$1/;$s="spm";/(oid)/;$a=unpack("B*",$1 );s/oid/$a/;s/01101/car/;s/c(ar)/C$1/;s/11/thy/g; s/10/\npt/g;s/0/.is/g;s/tth/$n/g;$f=6951386;#RTFS s/($n)y/\@$1/;s/y\.is*/Fall.$n.is/;s/F/son/;#LART s/pt\.is/$f/i;s/p/$s/g;s/$s$n/sea/;s/$n/salt/g;;; s/.*\.is$//;s/\.is$/\/~$s/;while($d++<($f/(4096## *16))/$pi-5){$_.="-";$_="-".$_;}$_.="\n";s/(S)()/ $1/g;print;$se=eval("$copy\");");print("$se\n");;
Edit: chipmunk 2001-04-25
In reply to My .sig by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |