#!/usr/bin/perl open(FILE1,"plaintext.txt"); $msg1=join(" ",); $msg1=~s/[\n|\r]//g; close(FILE1); print "PLAINTEXT:\n"; print $msg1."\n"; print "encrypting...\n"; for($i=0;$i<$ARGV[0];$i++){ $msg1=~y/a-zA-Z/b-zaB-ZA/; } print $msg1."\n"; open(FILE1,">encrypted.txt"); print FILE1 $msg1; close FILE1;