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