Following the spec at 61:
sub c { ($_,$a,%h)=@_;join'',map{substr$a,($h{$_}||=keys%h)-1,1}/./gs }
... and also in spiritus strictus at 62:
sub c { my%h;join'',map{substr$_[1],($h{$_}||=keys%h)-1,1}$_[0]=~/./gs }
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

In reply to Re: Re: (Golf) Cryptographer's Tool #1 by MeowChow
in thread (Golf) Cryptographer's Tool #1 by Masem

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":