This is a very simple and famous crypto algo used to hide the japh...

print if($_=join$,,map{chr((ord()+3)%0xFF)}split/$,/,'Vbq^]^klqebo^]Mboi^]e^`hbo)')=~s=a`= =g;
#print "\n"

Purists will say the print "\n" is useless, but on many shellprompts, linefeed isn't added automatically and therefor, the output is hidden behind the prompt...That's why I added it.

P!