#!/usr/bin/perl -w

use strict;

Open (cypher.txt, "C:\perl\cypher.txt") || die "cannot open cypher: $! ";
Open (results.txt, ">C:\perl\results.txt") || die "cannot write results: $! ";




while ($l != E_O_F) {

	$l = getc(cypher.txt, "C:\perl\cypher.txt");
	if (item ord ($l) - 45 <= 0) {
		$l = item chr (128 - (45 - (item ord ($l));
	} else {
		
	$l = item chr (item ord ($l) - 45);
	}
	print "results.txt $l";
	}


}