Countdown....

[UnderMine]

I was bored this evening so...

$/='mkd@h   lqvj}"    |[mhrqj@  WW   RB  ?=H
   ;]B     y[I  LO]   opq   rc@ PB   yS  MLQ
   }By    SS]    hlq  vj@   twq vP   GG  Rsa
   hPw    lbPB|=B?;Q  ^By_B|=B  ?;\eplP  ByQ
RH VVB    E|Q    QVD  :lD       ]m   rc  
 ch@I     ]{{   ';$n  ='4       km   j@  !vw

jpcl@(clr@0aeucl';$r=sub{$z=shift;$b[$_]=vec
($z,$_,1) for 0..7;my $v.=$b[0];$v.=$b[$_+1]
 .$b[$_] for (1,3,5);$v.=$b[7];return pack
    'b*',$v;};$n=~y/"\n / /d;$e=sub{eval
        $_[0];$";};$t=sub{join'',map(
           &$r($_),(split //,$_[0]
             ));};$"=&$t($n);$|=
              1;$/=~y/"\n / /d;
                &print(&$e(
                  &$t($/)
                    ));

Hope you like it
UnderMine

[Mr. Muskrat]

++ for the wow factor.

perl -MO=Deparse countdown.pl yields:


$/ = qq(mkd\@h   lqvj}"    |[mhrqj\@  WW   RB  ?=H\n   ;]B     y[I  LO
+]   opq   rc\@ PB   yS  MLQ\n   }By    SS]    hlq  vj\@   twq vP   GG
+  Rsa\n   hPw    lbPB|=B?;Q  ^By_B|=B  ?;\\eplP  ByQ\nRH VVB    E|Q  
+  QVD  :lD       ]m   rc  \n ch\@I     ]{{   );
$n = "4       km   j\@  !vw\n\njpcl\@(clr\@0aeucl";
$r = sub {
    $z = shift @_;
    foreach $_ (0 .. 7) {
        $b[$_] = vec($z, $_, 1);
    }
    my $v .= $b[0];
    foreach $_ (1, 3, 5) {
        $v .= $b[$_ + 1] . $b[$_];
    }
    $v .= $b[7];
    return pack('b*', $v);
}
;
$n =~ tr/"\n / /d;
$e = sub {
    eval $_[0];
    $";
}
;
$t = sub {
    join '', map(&$r($_), split(//, $_[0], 0));
}
;
$" = &$t($n);
$| = 1;
$/ =~ tr/"\n / /d;
&print(&$e(&$t($/)));

Well done!

[Sihal]

yup I like it too. Question: how do you get your ideas ? :o)

[Mr. Muskrat]

Okay, I think I have fully de-obfuscated it.
I was impressed before but now... I am at a loss for words.

Read more... (3 kB)

[spiderman]

verry cool! Thanks for the entertainment. -spiderman

[dingus]

Excellent!

Dingus

---

Enter any 47-digit prime number to continue.

[Anonymous Monk]

Nice!! Definitely one of my favorites.. very creative

[MisterP]

That looks cool! I wish I could translate it. :) I am a noob.