my $MAL = '"MAL_[^"]*"';
while ( <LOG> ) {
  while ( $_ =~ /$MAL/gi ) {
    print OUT $_;
  }
}