if ($time =~ /^\w{3}\s\d{2}\,\s\d{4}(\s\d{2}:\d{2}\s\w{2})?/){ print "Found it\n"; }