This produced no output for me either pasted to perl STDIN or run as a script. I added a print in front just to check if I was missing something and the result was not japh like.
I checked and it also works on my home PC. (perl v5.6.0 on Win32)
Only thing I can think of is: the code should all be on one line (if you cut and paste from above it will include some newlines and '+' characters: I tried that and it gave no output.)
If that's the case try clicking d/l code to download the code instead. (and if that doesn't work let me know!)