use strict;
 use warnings;
 use feature 'say';

    ( )   ,say map{
   ( )    ,s <..>
   ()     ,$ _=lc crypt$_,$&;
    ()    ,s [[fy34].+]
     ()   ,s [[bg]|(?<=r$)]
    ( )   ,and $_}
   ( )    ,@ .= qw = JuzXb NO9(V PeKVj ACUcu =

[download]
say substr+lc crypt(qw $i3 SI$),4,5

Replies are listed 'Best First'.
Re: A string of pe(a)rls
by Grimy (Pilgrim) on May 19, 2012 at 07:33 UTC
    Really nice one. One detail bothers me, though : map{ (...) and $_} is (in my opinion) better written as grep{ (...) }. Then, a simple ,$ |--||s[.][uc$&]e would put uppercase letters in just the right places.
[reply]
[d/l]
[select]

Back to Obfuscated Code