Having just seen the last two nodes, I thought "Let's try something like that too". That's the result... :)

#!/usr/bin/perl -w

use


          strict
            ;
@$
           =
 qw
                     (
                  372
             266
      262          264   
                             416
 290                                                   316
             318
                      264           304 298                       
                 260                        416 

       320  

                        298                          260  
      312          416 
                                       304                       290 
                294                            310 
      
                           298                                     260
+ 
                     
                                     440
                        500
       )
                                                          ;

                          for
           (                                                          
+       @$
           )

                              {


                      print                                       
                          chr                                    (
                                                                      
+                              (                           
                                     
     (
          $_
                          >>                                          
+   1
                                                   )
                                                                ^
                                       240
                          )


                                                            )



    }
[download]