#!/usr/bin/perl -w

# Dato un array di stringhe cerca una stringa letta
# in input su console

use strict;
my($linea);


print "Leggo il testo da file\n";
open(IN, "lettera.txt");
open(OUT, ">lettera_crypt.txt");

while ($linea = <IN>) {
    $linea =~ tr/abcde/edcba/;
    print OUT $linea;
}