It's been a while...

[ferrency]

I haven't produced any obfu lately, but recent posts inspired me.

I'll put the code here, and basic instructions (but no solution) in a readmore.

#!/usr/local/bin/perl -w
use strict;

   ($-) =$ /=~ s
  }
 .*
 }
 shift || $ =
}ex

;$ == shift || $ =* 2/1/2/1/2/1/1;

for ("japh".."joke") {
   push @_, @{
    ([2%2/2/2,
      2%2%2/2],
     [2%2/2%2,
    $/] , [$ = ,$ // 2])
    [rand length substr $_,  1]
   }; s
  }
  (\d+) || just another perl hacker
 }
 $ 1/2 + 2 *& _* 2/2/2/2
}ex

for $-, $%;
   sub _{pop}
   $_[$%][$-] = '*'
}

map {print $_ || $"} @$_,"\n" for @_;

This displays a sierpinski triangle in your terminal. Specify X, Y size as command line options, or hope the defaults fit in your window.

It's optimized for obfu, not for golf or for runtime. It runs in strict with warnings and was tested on Perl 5.8.0 on Mac OS X.

Thanks for your interest,
Alan

[cchampion]

It works perfectly also on Linux (Perl 5.6.1) and Windows (ActiveState 5.6.1 and tinyperl 5.8.0)

++!

[daeve]

Works fine on RH9 linux with perl 5.8.0 too.

++ Very Cool!

Daeve