#!/usr/local/bin/perl
$decalage = shift; $decalage = $decalage % 26;
while (<>) { for my $i (1..$decalage) { tr/a-zA-Z/b-zaB-ZA/; } print; }