Perl的代码怎么变成骆驼形状
linux下看到环境里的有的perl脚本代码变成了骆驼的性状，有很多只骆驼，完全看不懂，但是也可以正确执行，如下所示给出了一只，请问这是怎么做到的？
程序代码：#!/usr/bin/perl
eval eval '"'.
'#'.'!'.'/'.
("\["^ '.').('['^'(').
('['^')'). '/'.('`'|'"').('`'
|')').('`' |'.'). '/'.('['^'+').("\`"|
'%').('['^')').('`'| ',').('!'^'+').(('[')^
'.').('['^'(').("\`"| '%').('{'^'[').('['^'('
).('['^'/').(('[')^ ')').('`'|')').('`'|'#').(
'['^'/').';'.( '!'^'+').('['^'.').('['^'(').
('`'|'%').('{' ^'[').('['^',').('`'|'!').("\["^
')').('`'|'.'). ('`'|')').('`'|'.').('`'|"'").('['^
'(').';'.("\!"^ '+').('['^'.').('['^'(').('`'|('%')).(
'{'^'[').("\`"^ "'").('`'|'%').('['^'/').('`'|'/').('['^
'+').('['^'/') .':'.':'.('`'^',').('`'|'/').('`'|"\.").(
'`'|"'").';'.( '!'^'+').('!'^'+').'#'.('{'^'(').('['^'.')
.('['^'+').('['^'+').('`'|'/').('['^')').('['^'/').(('{')^
'[').('`'|'!').('{'^'[').('`'|',').('`'|')').('['^'(').('['
^'/').('{'^'[').('`'|'/').('`'|'&').('{'^'[').('`'|"\#").(
'`'|'/').('`'|'.').('`'|'&').('`'|')').('`'|"'").('{'^'[').
('`'|'&').('`'|')').('`'|',').('`'|'%').('!'^'+').('`'|'-')
.('['^'"').('{'^'[').'\\'.'@'.('`'|'#').('`'|'/').('`'|'.'
).('`'|'&').('`'|')').('`'|"'").'_'.('`'|'&').(('`')| ')'
).('`'|',').('`'|'%').';'.('!'^'+').('`'|'-').('['^ '"'
).('{'^'[').'\\'.'@'.('`'|'!').('['^'('). ('['^'(' ).(
'`'|'%').('['^')').('['^'/').'_'.('`'| "\&").( '`'
|')') .('`'|',').('`'|'%').';'.('!'^ "\+").( '`'
|'-').('['^'"').('{'^'[').''. ('\\'). '$'
.(('`')| '$').('`'| '%').( ('`')| ((
'"'))). ('['^'.' ).('`' |"'"). +(
'{'^'[' ).("\{"^ '['). ('{'^ (
'[')). ('{'^'[' ).+( '{'^
'[').( '{'^'['). '='. ('{'
^'[') .("\^"^( '`'| '.')
).';' .("\!"^ '+') .''.
('`' |'-'). ('[' ^'"'
).+( '{' ^'[' ).((
'\\' )). '$' .+(
'`' |(( '$' )))
.+( '`' |(( '%'
))) .+( '`' |+
(( '"'))) .(
(( '[')) ^+
(( '.'))).( ((
'`' ))|+ "'"). ((
'_' )).''. ('`' |((
'&') )).('`'| ')' ).+(
('`')| ',').(
'`'|'%') .("\{"^
