http://www.perlmonks.org?node_id=153316

feel free to break this one down:
#!/usr/bin/perl -w use strict; eval eval eval; BEGIN{$_='unpack"u",\'M;7DD8S LD7STB-S`W,C8Y-F4W-#(P,C(T83< U-S,W-#(P-C$V939F-S0V.#8UxxxM -S(R,#4P-C4W,C9C,C`V.#8Q-C,V8 C8U-S(U8S9E,C(S8B([=VAI;&4H;2 @Hxxx@+BXI*7-G*7LD8RX]8VAR(&A E>"0Q.WUR971U<FXD8SL`\'';s(\s )()xg;s/xxx/\n/g;s;s;perl;x;}

Replies are listed 'Best First'.
Re: hidden functionality
by cchampion (Curate) on Mar 22, 2002 at 11:27 UTC
    Since you asked ...
    SPOILER follows.