#!/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";}