At present the world is working on it, largely because of the most disturbing way it has been implemented.

Right on! Up with disturbing implementations! That'll teach those NSA goons...

sub modifyKeys(){
    # snip #
    For $x = 1 To length($self->{R_KEY})
        $i = ord(substr($self->{R_KEY}, $x, 1)) - 32
        S_KEY = S_KEY + ord(($i ^ $self->{RSORT}[$i] ^ $self->{ATT}) +
+ 32)
    Next x
[download]

Where can I get your version of perl?

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print