$log_start =~ s/^\w+\s+(\w+\s+\d{1,2}\s+\d{1,2}:\d{1,2}:\d{1,2})\s+\d{4}$/$1/i;
print $log_start, "\n";

##</code><code>##

Use of uninitialized value in concatenation (.) at.....