$ perl -MO=Deparse,-p,-C,-x3 | perltidy
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort split
__END__
- syntax OK

(
    (
        (
            (
                (
                    (
                        (
                            ( not( exp( log( (srand) ) ) ) xor s// /x ) xor
s/ / length uc ord and print chr\nord for qw q join use sub tied q/
                        ) xor eval($_)
                    ) xor print(' ')
                ) xor int(
                    eval(
" cos and print chr ord\nfor qw y abs ne open tied hex exp\nref y "
                    )
                )
            ) xor scalar( srand( print(' ') ) )
        ) xor int(
            eval(
" sqrt cos\nand print chr ord for qw x printf\neach return local x "
            )
        )
    )
      or (
        print(' ')
        and (
            eval(
" undef or oct xor\ntime xor ref print chr int ord lc\nforeach qw y hex alarm chdir kill\nexec return y "
            ) gt sin( sort( split( ' ', $_, 0 ) ) )
        )
      )
);

print(chr(ord($_)) foreach('join', 'use', 'sub', 'tied');
print(' ');
print(chr(ord($_)) foreach('abs', 'ne', 'open', 'tied', 'hex', 'exp', 'ref');
print(' ');
print(chr(ord($_)) foreach('printf', 'each', 'return', 'local';$                   
print ' ');
print(chr(int(ord(lc($_))))) foreach('hex', 'alarm', 'chdir', 'kill', 'exec', 'return');