Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

First try

by orbital (Scribe)
on Mar 17, 2001 at 04:43 UTC ( [id://65086] : obfuscated . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    
    @s=qw(-9 15 -8);$t='$s+=abs(';t();@a=$s*$#s+($s/$#s-($#s*($#s+1)));
    $t='push(@a,$a[$#a]+';t();@s=qw(25 5 10);$s=$a[0];$t='push @t,
    ($s+=';t();@s=@t;$t='$a.=chr(';t();@s=@a;$t='print '."$a(";t();
    sub t{for(@s){eval($t."$_)");}}
    
  2. or download this
    @s=qw(-9 15 -8);   #J in ASCII = 74 - 9 = 65 letter A
    
    ...
        for (@s){
            eval($t."$_)");}
            }