For example the following are equivalent:
s/lt/t/; s altata; [download]
Unrolling your code gives the following:
print unless s//\n&E vtuEAopuifs&PfsmEHbdlfs\n\n/ && y/&b-z&/&a-y&/ && y/E &/ J /d && 0 [download]
&E vtuEAopuifs&PfsmEHbdlfs &E ustEAnother&PerlEHacker Just Another Perl Hacker [download]
Deobfuscation for fun and profit
-- John.
PS. I think someone did not check to see what was packed so it did its job.