first post, first JAPH... :)

#!/usr/bin/perl

@perl=('*(/,.+PPPPPP$!+)', ################################## JUST ###
+######################################
     '#!/-.-.,.,/,EEEEEE', ###########################################
+######### ANOTHER ####################
   '#!/---..*(RRRRRR,)&$', ########################### PERL ##########
+######################################
       'LLLLLL-++*(&)##!');######### HACKER ##########################
+######################################
while($a=shift(@perl)){@l=split(//,$a);while(@l){print " "x((ord shift
+ @l)-(ord shift @l))."#";}print "\n";}
[download]

sigh... formatting sucks... I think I'll rewrite this for 80 columns... :(