if (uc($ARGV[1]) eq 'E') { 
	$_ = $ARGV[0];
	tr/a-zA-Z/epstiwknuvgclrybxhmdofzqajEPSTIWKNUVGCLRYBXHMDOFZQAJ/;
}
	
else {
	$_ = $ARGV[0];
	tr/a-zA-Z/ypltavkrezgmshubxncdijfqowYPLTAVKREZGMSHUBXNCDIJFQOW/;
}

print;