the star still shines

From https://pastebin.com/8rXhtqgr

perl -Mre=eval <<\EOF
                                       ''                             
+       
                                      =~(                             
+       
                                      '(?'                            
+        
                                     .'{'.(                           
+       
                                    '`'|'%'                           
+       
                                    ).("\["^                          
+        
                                   '-').('`'|                         
+       
                                  '!').("\`"|                         
+       
                                  ',').'"(\\$'                        
+        
                                 .':=`'.(('`')|                       
+       
                                '#').('['^'.').                       
+       
                                ('['^')').("\`"|                      
+        
     ',').('{'^'[').'-'.('['^'(').('{'^'[').('`'|'(').('['^'/').('['^'
+/').(  
    '['^'+').('['^'(').'://'.('`'|'%').('`'|'.').('`'|',').('`'|'!').(
+"\`"|  
      '#').('`'|'%').('['^'!').('`'|'!').('['^'+').('`'|'!').('['^"\/"
+).(    
         '`'|')').('['^'(').('['^'/').('`'|'!').'.'.('`'|'%').('['^'!'
+)      
            .('`'|',').('`'|'.').'.'.('`'|'/').('['^')').('`'|"\'").  
+        
              '.'.('`'|'-').('['^'#').'/'.('['^'(').('`'|('$')).(     
+       
                 '['^'(').('`'|',').'-'.('`'|'%').('['^('(')).        
+        
                    '/`)=~'.('['^'(').'|</'.('['^'+').'>|\\'          
+        
                       .'\\'.('`'|'.').'|'.('`'|"'").';'.             
+       
                         '\\$:=~'.('['^'(').'/<.*?>//'                
+        
                         .('`'|"'").';'.('['^'+').('['^               
+       
                        ')').('`'|')').('`'|'.').(('[')^              
+        
                       '/').('{'^'[').'\\$:=~/('.(('{')^              
+        
                       '(').('`'^'%').('{'^'#').('{'^'/')             
+       
                      .('`'^'!').'.*?'.('`'^'-').('`'|'%')            
+        
                     .('['^'#').("\`"|    ')').('`'|'#').(            
+        
                     '`'|'!').('`'|          '.').('`'|'/')           
+       
                    .'..)/'.('['               ^'(').'"})')           
+       
                    ;$:="\."^                     '~';$~='@'          
+        
                   |'(';$^=                          ')'^'[';         
+       
                  $/='`'                                |'.';         
+       
                  $,=                                      '('        
+  
EOF
[download]

Don't be fooled. They are still with us.

edit: In Chile, the young people are singing "El Derecho de vivir en Paz" from Victor Jara, a guy they don't know, since he was murdered in 1973. Here,for example.

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

Comment on the star still shines Download Code

Replies are listed 'Best First'.
Re: the star still shines by eyepopslikeamosquito (Archbishop) on Dec 09, 2019 at 07:41 UTC
I like your star shape. I'll probably add a similar shape (with attribution) in the next release of Acme::EyeDrops. Suggestions for other cool new ascii art shapes welcome. As for how this module came to be on the CPAN see: The History of Acme::Bleach and Acme::EyeDrops	[reply]
Re^2: the star still shines by shmem (Chancellor) on Dec 09, 2019 at 08:20 UTC
I like your star shape. Well, it is not mine, it is ripped off of a robin-hood-style hack revelation page. So, don't attribute that to me. perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'	[reply]
Re: the star still shines by roho (Bishop) on Dec 08, 2019 at 12:25 UTC
I like the art work (very well done), but when I try to run it on Windows 10 using Perl 5.24.1 I get this error message: `Can't modify subtraction (-) in scalar assignment at star.pl line 37, +at EOF (Might be a runaway multi-line << string starting on line 2) Execution of star.pl aborted due to compilation errors.` [download] "It's not how hard you work, it's how much you get done."	[reply] [d/l]
Re^2: the star still shines by shmem (Chancellor) on Dec 08, 2019 at 14:23 UTC
Remove the first and the last line and run it with `perl -Mre=eval star.pl` [download] To see what it does, run `perl -MO=Deparse -Mre=eval star.pl` [download] You will need a `curl` executable, since the script fetches a file from the Zapatista Web page with `curl`. If you don't have `curl`, you can just copy over `lwp-download.bat` to `curl.bat` in your strawberry `perl/bin` folder. Note that the retrieved page will be saved to `index.htm` in the current working directory. It is in spanish, but there are links on the page leading to translations into other languages. perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'	[reply] [d/l] [select]


XP is just a number
	PerlMonks