my $now = time;

$log_start=scalar localtime $now -1 * 86400;
print "Log start = $log_start\n";

$log_start=~ /\w (\w\s+\d+\s\w)\s\d+/i;
print "Modified Log start = $log_start\n";