my $quoted    = qr/"  [^"]+   "/x;
my $bracketed = qr/\[ [^\]]+ \]/x;
my $bare      = qr/   \S+      /x;

while (<LOGFILE>) {
  my @logentry = /($quoted|$bracketed|$bare)/g;
}