As for obfuscated, it's certainly obfuscated enough to belong in this section, or, at least, in no other.

A JAPH as such doesn't have to be obfuscated at all. Any novel way of making Perl print the four words is valid.

Anno

monkfan@access7:~$perl           -e'map\
> {map{print       chr }/\d\
>     {3}/gx      }join q{},\
>      split/\s/sx,q(0741171151\
>        16032097110111116104101\
>             114 032   080  10 1\
>             114 108   032  104 \
>             09  70     99   10\
>             7   1      0     1\
>             1    1    4      0\
>             4     4  )       ;'
syntax error at -e line 3, near "}join"
  (Might be a runaway multi-line // string starting on line 2)
Execution of -e aborted due to compilation errors.
[download]

Solaris 8 same error - cool though



#  perl           -e'map\
> {map{print       chr }/\d\
>     {3}/gx      }join q{},\
>      split/\s/sx,q(0741171151\
>        16032097110111116104101\
>             114 032   080  10 1\
>             114 108   032  104 \
>             09  70     99   10\
>             7   1      0     1\
>             1    1    4      0\
>             4     4  )       ;'
syntax error at -e line 3, near "}join"
  (Might be a runaway multi-line // string starting on line 2)
Execution of -e aborted due to compilation errors.
# uname -a
SunOS gort 5.8 Generic_108528-24 sun4u sparc SUNW,Sun-Fire-480R
[download]

I get the same error running under mingw/msys. But if I take away the command line stuff:

  map
{map{print       chr }/\d
    {3}/gx      }join q{},
     split/\s/sx,q(0741171151
       16032097110111116104101
            114 032   080  10 1
            114 108   032  104 
            09  70     99   10
            7   1      0     1
            1    1    4      0
            4     4  )       ;

[download]

It works flawlessly. And is still nicely camelicious.


TGI says moo

Interesting, it works nicely for me under Solaris 9 and MacOS 10.4. If I copy your output with the GT symbols at the start of each line, I get the same error you do. But if I simply copy and paste it to the command line it works fine. I'll have to muck with it and do some more testing.

perl -e 'split//,q{john hurl, pest caretaker}and(map{print @_[$_]}(joi
+n(q{},map{sprintf(qq{%010u},$_)}(2**2*307*4993,5*101*641*5261,7*59*79
+*36997,13*17*71*45131,3**2*67*89*167*181))=~/\d{2}/g));'
[download]