my ($current_date) = map { qr/$_/ } (scalar localtime) =~ /\w+ +(\w+ +\d+)/;