my $date ='';

if ( $_ =~ /\[(\S+)\s/ )
  { $date = $1; }