The main trick here is that the substitutions and transliterations use letters as delimiters.

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]

The results of the three transformations are:

    &E vtuEAopuifs&PfsmEHbdlfs
    &E ustEAnother&PerlEHacker
      Just Another Perl Hacker
[download]

Deobfuscation for fun and profit

--
John.