http://www.perlmonks.org?node_id=614162

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 =+;' *|