This code is dedicated to all perl community.

The 20 of august ZlR(FRANCE) arrived to (CHILE)cristian to contact me by cel phone and ready.

Lets go drink beer much much beer and listen much and good rock and roll.

it great. regards to all mongers

Upgrade code more very short solution

This code is runing in perl v5.8.4

Version 2

$*=\&(|<>,@=={$}=>,%\,%\}.$*,*_=\$@, eval'&$->obfu',s<^(\w+)\s(...).*>!$2!,$.=$_, eval'@$->obfu',s+.*w..(.)... . (.)(.)..... .. ..(.).*+'$4$3$2$1'+; $,=" {print $_}",$,=~s/\n//g;$.=~s/\n//g; $=[0]=~s<(.).*~(\w{6})$>@"$. $1$2$,"@e.eval$=[0]&&s<.*>@&Howoorg@e;

Version 1

#!/usr/bin/perl $*=\&(|<>,@=={$}=>,%\,%\}.$*,*_=\$@, eval'&$->obfu',s<^(\w+)\s(...).*>!$2!,$.=$_, eval'@$->obfu',s+.(.)(.)'(.)\s(.).(.).\s.(.).(.)(.). "...(.)" ....... +. (.)..(.)... .(.) ..(.)...(.)*+'$13$9s$3 $1$2$8$3$7$6$12 $10$6$12$5 +$7$1$4$11$6$12'+,$,=" {print $_}",$=[0]=~s<(.).*~(\w{6})$>@"$.$1$2$," +@e.eval$=[0]&&s<.*>@&Howoorg@e;

Edit g0n - moved code tags to code only

Replies are listed 'Best First'.
Re: Obfu or another method?
by liverpole (Monsignor) on Aug 26, 2005 at 12:10 UTC
    Just to let you know, I'm getting an error running it under v5.8.6 (Linux):
    Bareword found where operator expected at (eval 8) line 1, near ")w" (Missing operator before w?)
    Apologies if I've merely cut-and-pasted it incorrectly somehow.
Re: Obfu or another method?
by ZlR (Chaplain) on Aug 29, 2005 at 15:57 UTC
    Damn right !

    It was a great time in Santiago, it's a great city, and all considered it was quite amazing to meet cristian and his crew like this, thanks to perlmonks and to ... obfu code !! Maybe soon the obfu-monks travel-agency ?

    Eh ! I guess this is the other great thing about open source <:)

    keep rockin' !

Re: Obfu or another method?
by jdalbec (Deacon) on Aug 27, 2005 at 23:52 UTC
Re: Obfu or another method?
by cristian (Hermit) on Aug 29, 2005 at 13:55 UTC
    I was create new version with perl v5.8.4 More short and more easy. And error is nature into the thos obfu , but the result will be : version 1:just another perl hacker" version 2:"japh"
Re: Obfu or another method?
by ambrus (Abbot) on Aug 27, 2005 at 21:29 UTC

    I get the same error as liverpole reports, with perl 5.8.5 i686-linux.