language: Perl (perl 5.16.2)
date: 418 days 9 hours ago
link:
visibility: private
1
2
3
4
5
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;