use POSIX qw/strftime/; $t = strftime("%Y-%m-%d", localtime); $in="Release date: April 1 2012"; $in =~ s/(Release date:).*/$1 $t/g ; print $in;