my ($date) = ($VAR1 =~ /(^\w+ \d+ \d+:\d+:\d+)/);