#!/usr/bin/perl
#Cifrario di Cesare  __GiReX__  29/02/08

my $word = shift or die "pass a word to program\n";

for($i = 0; $i < length($word); $i++)
{
  my $ascii = ord(substr($word, $i, 1));

  if(($ascii > 64 && $ascii < 88) || ($ascii > 96 && $ascii < 120))
  {
    substr($word, $i, 1, chr($ascii+3));
  }
  elsif(($ascii > 87 && $ascii < 91) || ($ascii > 119 && $ascii < 123))
  {
    substr($word, $i, 1, chr($ascii-23));
  }
}

print "La parola cifrata è: ${word}\n";