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; |
dXNlIFBPU0lYIHF3L3N0cmZ0aW1lLzsgCiR0ID0gc3RyZnRpbWUoIiVZLSVtLSVkIiwgbG9jYWx0aW1lKTsKJGluPSJSZWxlYXNlIGRhdGU6IEFwcmlsIDEgMjAxMiI7CiRpbiA9fiAgcy8oUmVsZWFzZSBkYXRlOikuKi8kMSAkdC9nIDsKcHJpbnQgJGluOw==
-
upload with new input
-
result: Success time: 0.01s memory: 5364 kB returned value: 0
Release date: 2012-04-01


