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