The code is:

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