if ($string =~ /(\w{3}) (\d+), (\d{4}) ((\d+):(\d{2}) (.+)?)/) {
   # do stuff
}