Perl script that takes plain-text and applies a cipher/key.