$addtime = "2009-04-13";

$datetime = "2008-12-31 12:00:00";

substr($datetime,0,10) = $addtime;

echo $datetime;

#!/usr/bin/perl -wuse strict;

my $addtime = "2009-04-13";

my $datetime = "2008-12-31 12:00:00";

substr($datetime,0,10) = $addtime;

print $datetime;

$addtime = "2009-04-13";

$datetime = "2008-12-31 12:00:00";

$datetime = substr_replace($datetime,$addtime,0,10);

echo $datetime;