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

Inspired by tobyink's recent post...

use warnings;
use strict;

package   ::::::::::
{$_=q:!:;$::::::::::
=q;:;;sub ::::::::::
{s::@_:}}&::::::::::
($        ::::::::::
.        '::::::::::
',$       ::::::::::
x10);$    ::::::::::   
=q;::;;s. ::::::::::
    .$    ::::::::::
    \.$   ::::::::::
\.' '\.$  ::::::::::
      \.$ ::::::::::
       \.$::::::::::
.gex;s: \n::gx;print

[download]


When's the last time you used duct tape on a duct? --Larry Wall

Back to Obfuscated Code