Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

just another prime hacker

by teamster_jr (Curate)
on May 08, 2007 at 15:03 UTC ( [id://614162] : obfuscated . print w/replies, xml ) Need Help??

a quick and dirty japh.
s;;f1cfeF1fF1124f36f6ff3F112F2f6F1df11112f24f6F12F118f11122F4f1f111 F12f6F1116;&s;f[^f]*;($,=1-2*$&!~/f.*/)&&printf"%c",$.+=@{[map($,*= (grep{(1x$_)!~/^(11+?)\1+$/}1..43)[hex]||1,split"",$&),$,]}[-1];ieg

Replies are listed 'Best First'.
Re: just another prime hacker
by wulvrine (Friar) on May 22, 2007 at 12:42 UTC
    Great Job as always teamster_jr ++!

    s&&VALKYRIE &&& print $_^q|!4 =+;' *|