The Perl Journal Archive Back (and Online Too!)

mccormi writes "The Perl Journal is back. It's been rolled into Sys Admin Magazine as a quarterly supplement for the print publication. On the web side, the archive articles are all up now here. See articles from Vol 1 Issue 1 on regex by Tom Christiansen and cgi programming by Lincoln Stein" I'll take it any way I can get it. TPJ was one of just 5 publications I subscribe to (and 2 of them are comic books so I don't think that counts ;)

Comments

I'm Obfuscated!

[ekrout]

Perl:
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*= 2) +=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[ P.]/&&
close$_}%p;wait until$?;map{/^r/&&}%p;$_=$d[$q];sleep rand(2)if/\S/;print

Explanation