Nice one! I shaped your code like a triangle.
#!/usr/bin/perl
/\
/=~(
'(?{'.
('`'|'%'
).('['^'-'
).('`'|'!').
('`'|',').'"'.
'\\$-=!\\$%|!\\'
.'$%<<('.('['^'+')
.('`'|'/').('['^'+')
.'||'.('^'^('`'|'*')).
');'.('['^'+').('['^')')
.('`'|')').('`'|'.').('['^
'/').'(\\$\\"'.('['^'#').''.
'\\$-,('.('`'|'-').('`'|'!').(
'['^'+').'\\$_?'."'".'/\\\\\\\\'
."'".':\\$\\".\\$\\",\\@;),\\$/),'
.'\\@;=(!\\$%,'.('`'|'-').('`'|'!').
('['^'+').'\\$;[\\$_]^\\$;[-\\$_],!\\'
.'$%..\\@;)'.('['^',').('`'|'(').(('`')|
')').('`'|',').('`'|'%').'\\$---"})');'\+'