Select Code to Download

# Find lines starting with "_ and ending with ", and containing option
+al
# leading or trailing whitespace.
#
my $MAL = '^\s*"_.*"\s*$';

use strict;
use warnings;
...
    print OUT2 $_;
  }
}