Select Code to Download

#!/usr/bin/perl -wire
# sets -w, which only tries to slightly obfuscate that i'm using -i ( 
+$^I) to
...
      # calls the subroutines in order, reversing the letters in each 
+word.
      map { scalar reverse }
          ( l, &s, &j, &P);

$/="J";$\=",";$r=join""=>map{$_+=57;chr}map{ord}split//=>"2*(/;65(";@t
+=sort
map{if(m*^\w$*m){$_}}keys%{*::};sub u{$"}sub s{$^I.substr$r,3,5}sub j{
+$t[-5].$^I
.$t[-8]}sub P{$^I.substr$r,0,4}sub l{$t[-2].$t[-3].$t[-1].$/}print map
+{if(m#ack#
){$_}else{$_.=&u}}map{~~reverse}(l,&s,&j,&P);

#!/usr/bin/perl -wire

...
$_ =~ y[b-za2-901][a-z0-9];

eval

sub r { 49 }     # returns 49
sub a { r()-1 }  # returns 48
sub b { a()-1 }  # returns 47
sub c { b()+3 }  # returns 50
sub d { 0 }      # returns 0

$e=q=
fho'e{49}
...
=;
$e=~y/a-z/n-za-m/;
eval $e;

$A = ( scalar join '',
          map { $a = $_ + 48;
...
              }
          ( 50, 74, 49, 2, 9, 0, 1 )
     );

$B = ( scalar join '',
          map { $b = $_ + 49;
...
              }
          ( 48, 74, -1, 8 )
     );

join '',
map { if( m/^\d+$/ ){
...
      }
    }
( 121, 47, $A, 47, $B, 47 )

eval join '', map{ if( m|^\d+$| ){
                     pack'c',$_
...
                                   }
                   ( a(), 24 + r(),  -1,8 )
               ), b() );