Nice one! I shaped your code like a triangle.

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