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