Excellent ! (++).
I had to add a semicolon (;) at the end of
){push@:,join$&,map{shift@$_}@;}@:}$%[rand@%]->()
in order to get this to compile. Without that it gives:
Scalar found where operator expected at SlashDotLameJokeGen.pl line 22
+, near ")
$;"
(Missing semicolon on previous line?)
syntax error at SlashDotLameJokeGen.pl line 22, near ")
$;"
Execution of SlashDotLameJokeGen.pl aborted due to compilation errors.
FYI - "This is perl, v5.8.0 built for MSWin32-x86-multi-thread"
Update: OK - The obfu was fine - I had mistakenly included jonadab's signature as part of the code - causing the error. (This was prior to his update).