$date = lc ($date);
if ($date =~ /^\[a-zA-Z]{3}\s\d\s\d{4}$/){