Perl的代码怎么变成骆驼形状 - 编程论坛

linux下看到环境里的有的perl脚本代码变成了骆驼的性状，有很多只骆驼，完全看不懂，但是也可以正确执行，如下所示给出了一只，请问这是怎么做到的？

程序代码：

#!/usr/bin/perl
eval eval '"'.

                                      '#'.'!'.'/'.
           ("\["^                   '.').('['^'(').
        ('['^')').                '/'.('`'|'"').('`'

|')').('`'  |'.').              '/'.('['^'+').("\`"|
'%').('['^')').('`'|            ',').('!'^'+').(('[')^
'.').('['^'(').("\`"|          '%').('{'^'[').('['^'('
  ).('['^'/').(('[')^        ')').('`'|')').('`'|'#').(
       '['^'/').';'.(      '!'^'+').('['^'.').('['^'(').
      ('`'|'%').('{'     ^'[').('['^',').('`'|'!').("\["^
     ')').('`'|'.').   ('`'|')').('`'|'.').('`'|"'").('['^
    '(').';'.("\!"^   '+').('['^'.').('['^'(').('`'|('%')).(
    '{'^'[').("\`"^  "'").('`'|'%').('['^'/').('`'|'/').('['^
    '+').('['^'/')  .':'.':'.('`'^',').('`'|'/').('`'|"\.").(
    '`'|"'").';'.(  '!'^'+').('!'^'+').'#'.('{'^'(').('['^'.')
    .('['^'+').('['^'+').('`'|'/').('['^')').('['^'/').(('{')^
    '[').('`'|'!').('{'^'[').('`'|',').('`'|')').('['^'(').('['
     ^'/').('{'^'[').('`'|'/').('`'|'&').('{'^'[').('`'|"\#").(
     '`'|'/').('`'|'.').('`'|'&').('`'|')').('`'|"'").('{'^'[').
      ('`'|'&').('`'|')').('`'|',').('`'|'%').('!'^'+').('`'|'-')
       .('['^'"').('{'^'[').'\\'.'@'.('`'|'#').('`'|'/').('`'|'.'
        ).('`'|'&').('`'|')').('`'|"'").'_'.('`'|'&').(('`')| ')'
         ).('`'|',').('`'|'%').';'.('!'^'+').('`'|'-').('['^  '"'
          ).('{'^'[').'\\'.'@'.('`'|'!').('['^'('). ('['^'('  ).(
            '`'|'%').('['^')').('['^'/').'_'.('`'|  "\&").(   '`'
             |')') .('`'|',').('`'|'%').';'.('!'^   "\+").(   '`'
                   |'-').('['^'"').('{'^'[').''.    ('\\').   '$'
                   .(('`')|    '$').('`'| '%').(     ('`')|   ((
                   '"'))).     ('['^'.'   ).('`'     |"'").  +(
                   '{'^'['     ).("\{"^   '[').       ('{'^  (
                   '[')).      ('{'^'['   ).+(         '{'^
                   '[').(     '{'^'[').   '='.         ('{'
                    ^'[')     .("\^"^(    '`'|         '.')
                    ).';'     .("\!"^     '+')         .''.
                    ('`'     |'-').       ('['         ^'"'
                    ).+(     '{'          ^'['         ).((
                    '\\'      )).         '$'          .+(
                    '`'        |((       '$'           )))
                    .+(         '`'     |((            '%'
                    )))          .+(   '`'              |+
                    ((             '"')))               .(
                    ((              '['))               ^+
                    ((             '.'))).(             ((
                   '`'            ))|+ "'").            ((
                  '_'           )).''.  ('`'           |((
                 '&')         )).('`'|   ')'          ).+(
               ('`')|                                ',').(
             '`'|'%')                               .("\{"^