Select Code to Download

while ( <LOG> ) {
  if ( $_ =~ /$MAL/i ) {
...
# Save them all in $out
    print OUT $_;
  }