#!/usr/bin/perl
use strict;
use warnings;
use 5.010001;

say 'Please Enter a String to be Encrypted or Decrypted';
my $input = <>;
chomp $input;

$input =~ tr/abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ/nopqrstuvwxyzabcdefghijklmNOPQRSTUVWXYZABCDEFGHIJKLM/;
say $input;