hidden functionality

[iamcal]

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;}

[cchampion]

Since you asked ...
SPOILER follows.

Read more... (1324 Bytes)