Obfu or another method?

[cristian]

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

$*=\&(|<www.perlmonks.org>,@=={$}=>,%\,%\}.$*,*_=\$@,
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
$*=\&(|<www.perlmonks.org>,@=={$}=>,%\,%\}.$*,*_=\$@,
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-mail]$=[0]&&s<.*>@&Howoorg@e;

Edit g0n - moved code tags to code only

[ZlR]

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' !

[liverpole]

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.

[jdalbec]

Same here.

This is perl, v5.8.1-RC3 built for darwin-thread-multi-2level

The problem seems to be that \&( is not evaluating to the CODE(...) address that the OP expects. The OP is looking for an address matching /0x...[02468][def][4567def][ace]/ and (in my case) the coderef address is 0x8012c4.

Update: Version 2 gives the same error here. No "japh" message is printed. Is the OP running Perl on Microsoft Windows?

Since \&( does not match the regex I posted, the value of $* ends in ~kw/org here rather than ~owoorg, so the substitution on $=[0] fails because \w doesn't match a /. Even if it succeeded, the subsequent eval would attempt to define the subroutine Hkw/org (giving a Search pattern not terminated error) instead of defining the subroutine Howoorg as the OP intended.

[cristian]

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"

[ambrus]

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