my ($date) = ($VAR1 =~ /([A-z]* [0-9]*.[0-9]*:[0-9]*:[0-9]*)/);

##</code><code>##

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