Select Code to Download

my $quoted    = qr/"  [^"]+   "/x;
my $bracketed = qr/\[ [^\]]+ \]/x;
...
while (<LOGFILE>) {
  my @logentry = /($quoted|$bracketed|$bare)/g;
}