print chr($ch[$mrT]+ 2.7);
$mrT = $mrT - 1;
[download]

is more obfued written as:

print chr($ch[$mrT--]+2.7);

Now make it say "Just another Perl hacker\n" :-)