小编hug*_*ugo的帖子

此代码摘自Phineas Fisher 的HackBack DIY指南，用于抢劫银行。它输出一个长文本（Lacandon丛林的第六宣言）。它在哪里获取？我根本看不到任何字母数字字符。这里发生了什么？-r开关有什么作用？似乎没有记录。

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