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