chomp ($d = `date +"%d %B, %Y"`);
$v = pop @ARGV;
while (<>) {
 s/^Versione.+/Versione~$v, $d/;
 print;
}