Heljo ev'ry-body ;) {wave}

This is my 2nd {clear throat} obfuscation, which gives you a *license* to be brutal

# filename: JAPwH.pl

#!/usr/bin/perl -w
#!perl -w
use strict;;;;;my $p='chomp(@O_my);for(20..48){print substr($O_my[$_],
+-1);};';#
my $q='if($c<1){;print"$o_my\n\n";}elsif($c>1){;print@O_my;}else{eval$
+o_my;}';#
my $f='seek DATA,0,0';my $c=defined($_=shift)?$_:1;eval$f;my @O_my=<DA
+TA>;#####
my $o_my=join('',map(chr,map(hex,split(',','70,72,69,6e,74,20,22,4a,75
+,73,74,'#
.'20,41,6e,6f,74,68,65,72,20,50,65,72,6c,20,77,48,61,63,6b,65,72,2e,5c
+,6e,22,'#
.'3b,40,5f,3d,6d,61,70,28,63,68,72,2c,6d,61,70,28,68,65,78,2c,6d,61,70
+,28,7b,'#
.'73,70,72,69,6e,74,66,28,22,25,6c,78,22,2c,6f,72,64,28,24,5f,29,29,7d
+,73,70,'#
.'6c,69,74,28,27,2c,27,2c,71,71,28,39,2c,38,2c,37,2c,36,2c,35,2c,34,2c
+,33,2c,'#
.'32,2c,31,2c,30,29,29,29,29,29,3b,66,6f,72,20,28,40,5f,29,7b,70,72,69
+,6e,74,'#
.'20,22,24,5f,5c,72,22,3b,73,65,6c,65,63,74,28,75,6e,64,65,66,2c,75,6e
+,64,65,'#
.'66,2c,75,6e,64,65,66,2c,30,2e,33,35,29,3b,7d,70,72,69,6e,74,20,22,62
+,79,65,'#
.'20,3b,29,5c,72,22,3b,73,6c,65,65,70,28,32,29,3b,66,6f,72,28,30,2e,2e
+,37,34,'#
.'29,7b,70,72,69,6e,74,20,22,20,22,78,28,24,5f,29,2e,22,62,79,65,20,3b
+,29,5c,'#
.'72,22,3b,73,65,6c,65,63,74,28,75,6e,64,65,66,2c,75,6e,64,65,66,2c,75
+,6e,64,'#
.'65,66,2c,30,2e,30,33,29,3b,7d,6d,79,20,24,71,3d,63,68,72,28,32,31,39
+,29,3b,'#
.'70,72,69,6e,74,20,22,24,71,22,78,28,38,30,29,2e,22,5c,6e,22,3b,70,72
+,69,6e,'#
.'74,20,22,24,71,22,78,28,38,30,30,2a,39,29,3b,73,65,6c,65,63,74,28,75
+,6e,64,'#
.'65,66,2c,75,6e,64,65,66,2c,75,6e,64,65,66,2c,30,2e,35,29,3b,70,72,69
+,6e,74,'#
.'20,22,20,22,78,28,38,30,30,2a,34,29,3b'))));if($c==9){eval$p;}else{e
+val$q;};#
__DATA__                                                              
+       #|
# if($user eq 'SUPAK'){&smack($user);}else{&give($props);}            
+       #.
# i'd like to give props to:                                          
+       #|
# Erudil for his great goatee and the camel code                      
+       #.
# and jima for dissecting the tre cool camel code                     
+       ##
# I'm sure Larry's tired of everybody shouting at him so i'm gonna sto
+p here #.
# and oh yeah, vroom vroom!                                           
+       #|
#                                                                     
+       #.
# p.s.                                                                
+       ##
# curious behaviour of the 'seek' within 'eval'                       
+       #.
# if you do:                                                          
+       #|
    eval("seek\040DATA,0,0;"); # please note that '(' is '40' in ascii
+       ##
    my @O=<DATA>;                                                     
+       #|
    print @O;                                                         
+       #|
# it reads the entire file in top to bottom and prints it out         
+       #.
# so does:                                                            
+       #.
    eval("seek\040DATA,0,0\040;"); ...                                
+       ##
    eval("seek DATA,0,0;"); ...                                       
+       #|
    eval("seek(DATA,0,0);"); ...                                      
+       #.
# but if you do:                                                      
+       #|
    eval("seek(DATA,0,0;"); ...                                       
+       #|
# only the stuff including and after the line __DATA__ is read in     
+       ##
# and even more curious, if you do                                    
+       #.
    my @O_my=<DATA>;                                                  
+       #|
    eval("seek DATA,0,0;");                                           
+       #|
    print @O_my;                                                      
+       #|
# only the stuff after, not including, '__DATA__' is printed          
+       #|
# anyone know why?                                                    
+       #.
###################################### -crazy!insomniac ###character e
+ighty now
[download]

UPDATE: thanx chipmunk. That is the 2nd kick in the nuts today.

"cRaZy is co01, but sometimes cRaZy is cRaZy".
                                                      - crazyinsomniac