Live, coplete your mission, delivery your legacy and die.
{split" ",(join"",@ARGV)|| ("12 1 2 1 1 1 1 2 1 1 1 1 2 1 4 1 0 11 1 2 1 4 1 2 1 4 1 2 1 4 1 0 4 1 4 1 2 1 1 1 1 2 1 1 1 1 2 1 1 1 1 0 3 1 4 1 2 1 4 1 2 1 8 1 4 1 0 2 1 1 1 1 2 1 4 1 2 1 8 1 4 1 0 0")}{$^=shift@_}{$^{1}="_/"and$^{0}=" "}_:{$^==0|| $^==1?print$^{$^}:print" "x$^}{$^= join" ",@_ }{$^="'$^'"}@_!=1?exec"perl $0 $^":_

Replies are listed 'Best First'.
Re: Live and Die
by de_cristian_izer (Initiate) on May 27, 2005 at 16:08 UTC
    So this one was tricky since it didn't run out of the box due to a problem with quote escaping in the exec ... So here is the solution, that we, a collective of rebel monks for CLEAN CODE have to offer : Rock on !

    ps : since it failed on our box could you tell us on what kind of OS and perl version did you run it ??

      #!/usr/bin/perl package ::Job::Bug::Hack::CLEAN::CODE; sub present::a{ $_=(caller())[//-//]; $_=~s/:+/\nGood /g; "$_\n\n" } print a present;